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Breakthrough 


Only CARDCO would dare improve on its own 
best seller (the +G has far out-sold any other 
printer interface, and has set the industry 
‘standard by which competitors are judged). 
Тһе G-Wiz is even better — and costs 
30% less." Our 27th major innovation in. 
Commodore accessories has all the +65 
features, and more... 
Built-In Buffer for More Speed 
The G-Wiz buffer dumps high-resolution 
Screens up to 18 times faster than competitive. 
interfaces without buffers. No more waiting! A 
complex 50-minute printout now takes just 2:5 
minutes with the G-Wiz. 

! Aspect Ratio Selection 


Only the G-Wiz matches graphics characters to 
- standard characters on Okidata, Epson, Star | 


Аса! price may vary according to dealer and region. 


Micronics, Prowriter, Smith Corona, C-ITOH, 
Gorilla Banana, and many other dot matrix 
printers. Now you can perfectly align high 
resolution graphics characters within text 
blocks, or іп columns. 

CARDCO excellence triumphs again! The 
G-Wiz is the “best bang for the buck" on the 
printer interface market today — and it's 
backed by CARDCO'S exclusive lifetime 
warranty! G-Wiz: another distant target for the. 
competition to shoot at. 
CARDCO,Inc.300S.Topeka/Wichita, KS 67202 
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VIEW FRON 1 
66 2 ‘Graphics Extravaganza? " Michael 
month's cover headline. “A couple of pro- 
grams and a tutorial doesn't make it an 'ex- 
it had darn well better be a ‘graphics extravaganza. " 
Having a publisher with ethics is a constant source of 
careful planning. In this case, careful planning involved 
bringing along the full lineup of graphics articles in this 
"Look, Mike; I said, "Screen Magic by Bob Spirko, 
who wrote Alice in Adventureland for us a few months 
vas for creating color graphics on the 64, without all the 
complicated commands. 
education in creating screen bit graphics. It would have 
to be. It was written by Professor Roger S. Macomber 
uses machine language to speed up the dumping of graph- 
ics to a printer. 


Schneider asked when I showed him this 
travaganza’ If I'm going to call it a ‘graphics extravaganza; 
difficulty, but one the shrewd editor can live with through 
month's Ahoy! One by one I laid them on his desk. 
back. It provides a joystick-controlled palette and can- 

"And Screen Dumping on the Commodore 64—a real 
of the University of Cincinnati. The program he includes 
*Dale Rupert covered screen bit graphics in this month's 


(dision of OCS. Inc) 


We guarantee you'll never again buy useless software for 
your personal computer. 


CLUB MEMBERSHIP OFFERS BIG SAVINGS 
— e NO OBLIGATIONS 


When you enroll you will * Be eligibie for our Bonus Point Plan— 


* Keep only the software that you cam — еркем висоти speted toward 
use. Examine for a full 10 days: Ив „ қан informative. 

пої what you want, return it for a full. " месіне э тары gy 

retur 


Receive discounts up to 30% on your = Receive noice ol Specie Soles where 
software choices. you'll save as much as 80% off іші. 


The Software-of-the-Month Club is Unique. 
No minimum pure! 'equired—no automatic shipments to you. 


Enroll now and receive absolutely free Public Domain Software. 
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GREAT IDEA! | cant love, Enroll me now in the SoRware-olthe-Month Ciub. | 
understand there is no obligation. Enclosed ін my $10 membership fee. 

в Card 
Meme - 
Address 


CllyStatei/Zip. 
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Signature. 


Cut out and mai today to 


Rupert Report, too—but The Ultimate Resolution con- 
centrates on the theory behind practical applications like 
Prof. Macomber's. 

*Here's another example of how graphics theory can 
be put to use: J.M. Marcanos Mapping 4.4, which al- 
lows you to plot mathematical functions in hi-res. 

Peering at me over the pile of manuscripts, Mike looked 
annoyed. | asked why. 

“Because? he said, "you're standing here babbling when 
you've got a graphics extravaganza to put together!" 

Gee, I thought as Пей Mike's office —1 didn't even get 
to tell him about this graphics issue's flagship piece: 
Quad-Print by Michael Beutjer. Mprton Kevelson will 
tell you all about this landmark program in his Graphics 
Challenge Update on the facing page. 

Having justified our cover headline, we'll now do the 
same for the larger type on the cover—the Ahoy! logo — 
with the finest lineup of Commodore-related articles and 
programs you'll find on the newsstand this month: 

% For Orson Scott Card to outdo himself would take 
some doing (outdoing?)—but he may have succeeded with 
this month's installment of Creating Your Own Games 
on the VIC and 64. In Sing a Song of Anything, he pro- 
vides a system by which C-64 users can automatically 
enter music into their original game programs —as eas- 
ily as typing letters! (Turn to page 18.) 

* The third installment of Commodore Roots, Mark 
Andrews assembly language programming column, peers 
Under the Hood of your computer at its microproci 
sor. Included is the 65/0 Simulator, a program which, 
while not an assembler, will show you how one works. 
(Turn to page 77.) 

* Duck Shoot starts out as easy as the penny arcade 
version, but soon reaches a level of complexity certain 
to ruffle your feathers. (Turn to page 35.) 

* Towers of Hanoi adapts the famous Tower of Brah- 
ma puzzle to the C-64 scri (Turn to page 17.) 

* Even the most expert joystickers will be thrown for 
a loss by Speedy for the unexpanded VIC 20. Its title 
character has a mind of his own when it comes to re- 
sponding to your directions. (Turn to page 56.) 

е Sheldon Leemon, author of MACTALKS and Tèle- 
computing on the IBM PC from COMPUTE! Books, 
takes over at the helm of our Ship to Shore column this 
month with a technical overview of telecommunications. 
(Turn to page 29.) 

е Also inside are Dale Rupert's Commodares at their 
most frustrating; Scuttlebutt, offering news in greater 
depth and more timely fashion than any other Commo- 
dore monthly; and Reviews of products like Blue Max 
2001, PROMAL, and the Teknika МЈ-10 color monitor. 

Love to tell you more, but I have to run back to Mike's 
office. His secretary dropped a note on my desk—some- 
thing about a "Graphics Super-Spectacular” 

— David Allikas 
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GRAPHICS CHALLENGE 
UPDATE 


By Morton Kevelson 


n the October 1984 issue of Aho part of a 
tour de force on Commodore 64 bit mapped 
graphics, I issued a graphics challenge to all com- 
ers. In brief, I was looking for some way to manip- 
ulate a bit mapped graphics field which exceeded the lim- 
itations of a single 320 by 200 pixel Commodore 64 high 
resolution display. The response has been far from over- 
whelming, but some results are in. 

The first answer came from Inkwell Systems, with ver- 
sion 4.0 of Flexidraw. Among the enhancements to ver- 
sion 3.0 (reviewed in November 1984) is the ability to 
link multiple screens on both the monitor and the print- 
er. This allows for printouts made up of 544 pixels wide 
and an unlimited number of pixels high. (Look for a de- 
tailed review of Flexidraw version 5.0 later this year. This 
will have so many enhancements to version 3.0 that it 
is practically a new program.) 

The second response comes from Michael Beutjer, au- 
thor of Picture Perfect from KT Software (October 1984 
Ahoy’). For those of you who have been unable to locate 
this versatile Koala screen dump program, it is now be- 
ing sold as KoalaPrinter by Koala Technologies. Mr. 
Beutjer has responded to my challenge by providing the 
Quad-Print program in this month's issue. The two ver- 
sions of this program will allow up to four DOODLE! 
files to be linked for simultaneous printout on a Gemini 
10X or a Commodore 1526 printer. 

Bit mapped graphics for the 1526 printer are difficult 
to implement, as it does not support true graphics mode. 
The 1526 allows for a single custom character to be de- 
fined and printed. Thus a full bit mapped screen dump 
requires the image to be formed eight bytes at a time. 
Furthermore, each time the custom character is redefined 
a carriage return without linefeed must be executed be- 
fore it can be printed. This is what causes bit mapped 
screen dumps to print so slowly on the 1526. 

For advanced users, the source code listings for the 
Quad-Print programs have been included. Owners of the 
1526 should take note of the listing labeled Fast Dump 
Routine. Mr. Beutjer has used a clever trick to maximize 
the speed of the 1526 bit map printout. The single char- 


acter is not redefined unless it is found to be different 
from the last one. As a result, this high resolution dump 
for the 1526 should be the fastest available from any 
source, O 
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NEED REPAIRS? We are an authorized 


for pricing, 
bility & software 


PRINTERS 
Powertype Daisywheel 18 СРУ Epson RX 80 


with Cardeo B +++ $354 мивТупас Connection... $299 
Okidata 92 160 CPS DPS 1101 Daisywheel 

with Тутас Connection. ... 429 Direct Connect to C64 + Call 
Commodore MPS 802 . Call RitemanC+ NEW ..... Call 
Okidata 182 NEW ..... Сай MW-350 Interface NEW Сай 
SPECIAL + PRINTSHOP 2 932,00 * SPECIAL 

DISK DRIVES 

MSD Super Drive . . Call Commodore 1541 .... Call 


IndusGT .. 


Phonemark Datasette 
Epyx Fast Load... 
Commodore 1571/72 


$29 
2827 


2К Buffer 
NLO Mode 
filium 
MONITORS 
Teknika MJ10 2 $189 Zenith ZVM сим. 
Commodore 1702 .... Call Commodore 1902 .... 


DATABASE MANGERS 


The Consultant. 559 Рі 559 
Super Base 64 229  PFSReport. a9 
The Manager ......... 35 
WORD PROCESSORS 
PaperClip/&speller 555/69 Easy Script 
FleetSystem 2 NEW. ... Call Easy Spell . 
ACCU 


Peachtree GL/AP/AR . 
Commodore GL'AP/AR/PR/IN, 


ТО 
COMPUSERVE STARTER ЗО ОБ 


KITA VIDTEX 


MODEMS 
Westridge 6420 . 


(a 


ACCESSORIES 
Com Cool Drive Fan..... $49 — Power Pak . 
Com Cool Plus w/sirge ^ 69 Surge Protector 4Plug ... 25 


BLACK NAUGAHYDE COVERS 
C64 or 1541 Drive... e $5 1702 Monitor 
MSD Drives 1/2 5/6 1525/MPS 801 
Gemini 10X 9 1526/MPS 802 ... Е 
ORDER WITHIN 48 HOURS. Advertised prices ae for bank check ot maney order 
Personal ce company checks delay orders 21 days All sales 
ing (£250 min) 


ну мето change 
JURS: MON-FRI 10 AM to 10 PM. * SAT А 


800- 638- -26 17 


INFORMATION & IN O 16/758-0009 


G BYTES 


VIP Terminal 
Commodore 1660 


1301 BOARDMAN-POLAND ROAD POLAND, OHIO 44514 
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BECOMING А 


If dinosaurs had kept up with their 2 
rapidly changing world, you might „2 
have a pet bronto today. (It's 
probably just as well they 
didn't, since they wouldn't fit 
into a small imported car 
anyway.) 
The point is, if you 


AUR 
E 


need a computer with the latest 
software and accessories. No 
question about it. The only ques- 
tion is, “where do | buy it 
Ah! We thought you'd never 
ask. Computer Warehouse, of 
course. Nice guys, great prices. 
Give us a call today. We'll get 


don't want to get left m" your shipment out bronto — 
behind today, you 22 es ег, pronto. 
COMMODORE SOFTWARE Educational 
C64 $139.95  Floppiclene Head Cleaner 14.95 Maelstorm 7.95 
1541 $178.00 word Processors Primary Math 795 
1101 Daisywhee! Printer $329.95 Paperclip with spell pack 6995 Math Tutor 7.95 
MPS 801 516995 — Wordpro 64 3995 Теа (ие Indians 795 
MPS 802 $209.00 Еазузспр! 39.95 Gotcha Math 7.95 
1702 520900 Words Writer 2495 Toddler Tutor 7.95 
SX 64 3995 English Invaders 7.95 


Modem 300/1660 
Power Packs jata 
Datasettes $2995 Practifile 

Supe! 


3995 Tiny Tutor 
Science Pack 

2495 Мат Pack 

59.95 Peanuts Picture Puzzlers 
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5 
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PRINTERS Tne Manager 5 3495 Peanuts Maze Marathon 19.95 

Star Printers The Consultant 5 69.05 Snoopy Skywriter 19:95 

5610 5269.00 PFS File 8 59.95 Charlie Brown АВС 19.95 

5010 5399.00 File Now $ 39.95 Snoopy to the Rescue 19.95 

SR 10 $499.00 FMC (Continental) 83495 Family Finance 

Powertype Home Accountant 69.95 

Radix 10 ти 5 3695 Complete Personal Accountant $ 69.95 

Delta 15 Zorks, 1, Il, i 5 2900 Time Money Manager 49.95 

Okidata Printers 82, 83 and 92 .. CALL Ghostbusters 5 19.95 Financial Cookbook 29.95 

Citizen MPS 10 $339.00 Pitfall 5 1995  Fullineof CBS Software CALL 

Panasonic 1091 $299.00  Chipwits $2995 DISKETTES” 

Axiom Elite 5 Daisywheel Synapse Games 5 18.95 Computer Warehouse ssídd .. $ 14.95 
Printer 5249.00 Epyx Games from 8 995 Elephant ss/sd $ 13.95 
With interface $299.00 Spreadsheets Elephant 55/40 5 16.95 

Multiplan 5 59.95 Maxell МОТ $ 18.95 

MODEMS Praclicalc 5 2995 Maxell MD2D 5 2495 

Westridge 5 69.95 Easy Calc 5 49.95 SKC ss/sd 8 13.95 

MPP 1064 5 8995 Calc Result $6995 SKCssldd $ 1695 

Mighty Mo 5 8895  SwitCalc $ 4995 "Prices per boxes of 10 


COMPUTER УУАРЕН У5Е 


7222 SW. 117th Avenue, Miami, FL 33183 Phone: 1-800-372-0214 
‘Add 3% for shipping and handling charges. Ad prices reflect 3% cash discount. Credit card orders should add 3%. Prices subject to change without notice. 
Reader Service No. 245 
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VCR TITLE МАК! 
TELECOM UPDATE 


MODERN ROLL PLAYING 

If you can analyze trends as 
shrewdly as we, then you realize that 
player piano sales are at an all-time 
low. So what does a piano roll com- 
pany with 85 years of experience do? 
Convert all that digitized music to 
disk, of course. That's what Q-R-S 
Music Rolls Inc. and Micro-W. Dis- 
tributing have combined to do. 

Q-R-S will make its library of over 
10,000 piano rolls available, digital- 
ly encoded to run on Commodore 
and other popular computers. Re- 
quired is an instrument such as a key- 
board synthesizer (to serve as the 
equivalent of a player piano), equip- 
ped with a Musical Instrument Digi- 
tal Interface (MIDI). Micro-W's new 
Commodore MIDI Interface, which 
plugs into the 64's user port, is the 
lowest-priced ($49.95) available to 
date. Also newly offered is the 1-2 
MIDI Cable ($19.95), which connects 
an instrument used in the described 
configuration to one or two other in- 
struments. 

Micro. Distributing, Inc., 1342B 
Route 23, Butler, NJ 07405 (phone: 
201-838-9027). 


REG 

When you review products prior to 
their release, as we try to do, an- 
nouncements of this type are som 
times necessary. Cardcos OuiG in- 
terface (see page 88, April), their en- 
hanced version of the +С, has been 
renamed the G Wiz. (Whatever the 
product's capabilities, you've got to 
be impressed Бу Cardco—coming up 
with not one, but two cute titles for 
a printer interface.) 

Cardco, Inc., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 
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DATABASE PROGRAMS 
The icon-driven E-Files 64 lets the 
user set up a customized database in 
card file format in any of three file 
drawers (each with a 200-record ca- 
pacity). Sort and search by any user- 
defined field, selective printouts, and 
address book format with mailing la- 
bels are all possible. On disk; $20.95. 
VMC Software, PO. Box 326, 
Cambria Heights, NY 11411. 
Designed to manage a home or 
small business bank account, Mega- 
Base I will scan а datafile for checks 
by number, company, or name, de- 
posit listin; а withdrawals, append 
or edit existing datafiles, auto-bal- 
ance, and list a block of checks. On 
disk for the 64; $19.95. 
Mega-Systems, РО. Box 415, 
Spring House, PA 19477 (phone: 
215-855-4451). 


CHARACTER EDITORS 

The uses of the Chared character 
editor range from creating character 
sets for the Greek (or any other) al- 
phabet to designing flying saucers for 
game use. Hi-res and multicolor 


modes are supported. Two sample 
character sets are included. For the 
C-64 on tape ($19.95) or disk 
($22.95). 

APCAD Software, PO. Box 2673, 
Ann Arbor, MI 48106. 

Font Factory will read in any stan- 
dard Commodore ASCII sequential 
disk file, automatically format it, and 
print the document with the typeface 
you select (eight are provided) in sin- 
gle or double width. On the same 
disk is Signwriter 64, allowing you 
to generate large letter signs up to 40 
characters long, in characters up to 
1 foot in length. Price is $29.95. 


INTEGRATED SOFTWARE 

If you multiply the hundreds of 
thousands of copies of Lotus 1-2-3 
that have been sold for the IBM PC 
by the program's selling price of 
5300-3500, it easily ranks as the best- 
selling computer program of all time. 
This success has inspired three manu- 
facturers of C-64 software to produce 
their own integrated business soft- 
ware, wherein several programs re- 
side simultaneously in memory, al- 
lowing data to be switched back and 
forth. 

Vizastar, like Lotus, provides 
spreadsheet, database, and business 
graphics programs. Menu-driven, it 
allows you to open up to nine win- 
dows to view different parts of the 
spreadsheet simultaneously. As of this 
writing, the program will work only 
with the 1541 disk drive. Price is 
$119.97. 

Solid State Software, 1253 Corsi- 
ca Lane, Foster City, CA 94404 
(phone: 415-341-5606). 

Harmony from International Tri 
Micro also offers spreadsheet, data- 
base, and business graphics programs, 


AHOY! 
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WITH NIGHT MISSION 


PINBALL 


You deserve the best. You've earned it. Now reward yourself with a session of Night Mission PINBALL, 
the most realistic and challenging arcade simulation ever conceived! s Stunning graphics and dazzling 
sound effects put Night Mission PINBALL in a class by itself. Game features: multi- 
ball and multi-player capabilities, ten different professionally designed levels of play, 
and an editor that lets you create your own custom modes. в So take a break with 


See your dealer... ОСС 


Order Line: 800 / 637-4983 Champaign IL 61820 
(217) 359-8482 Telex: 206995 
икс ват 


and adds а word processor. А win- 
dowing feature allows the user to 
view one set of data while working 
with another. 

International Tri Micro, 1010 N. 
Batavia, Suite G, Orange, CA 92667 
(phone: 714-771-4038). 

Sofisyncs Trio comprises word 
processor, spreadsheet, and database 
programs. The spreadsheet features 
48K free memory and recalculates 
topologically, similarly to Lotus 1-2-3 
and Multiplan. On disk, with 120- 
page manual/tutorial; $69.95. 

Softsync, Inc., 162 Madison Ave., 
New York, NY 10016 (phone: 212- 
685-2080). 


NEW PRINTERS 
For the individual who must own 
the fastest printer on the block, Sa- 
kata's SP-1500 is a safe bet at 180 
Characters per second. Despite its 
high speed, the $58500 serial impact 
dot matrix printer operates at a noise 
level of 60 dB(A). Included are a 3K 
buffer, friction/tractor and reverse 
feed, near letter quality mode and nu- 
merous other special print features, 
and built-in parallel Centronics inter- 
face (serial interface optional). 

Sakata U.S.A. Corporation, 651 
Bonnie Lane, Elk Grove Village, IL 
60007 (phone: 312-593-3211). 

If speed is not important but low- 
cost letter-quality print is, the 5295 
Juki 6000 will bang out 10 сһагас- 
ters per second from а 100-сһагас- 
ter daisy wheel in 10, 12, or 15 pitch. 
Included are both Centronics paral- 
lel and RS-232C serial interfaces. 

Juki Industries of America, Іпс., 
299 Market Street, Saddle Brook, NJ 
07662. (phone: 201-368-3666). 


64 AND PALS 

64 апа Pals’ disk and booklet lead 
the beginning user from setting up his 
C-64 through running various types 
of programs. Price: $14.95. 

Abnel Company, PO. Box 397, 
Grand Junction, CO 81502 (phone: 
303-245-3997). 


TELECOM NEWS 

Through Travelshopper, Compu- 
Serve subscribers can now directly 
access TWAS PARS reservations sys- 


low cost, speed. 
READER SERVICE NO. 292 


SP-1500: а 
blistering 180cps. 
READER SERVICE NO. 293 


tem to determine the lowest fares and 
most convenient flights—as well as 
make an immediate reservation and 
have the ticket sent to their home, the 
airport, or a designated travel agent. 
Enrollment is free and includes mem- 
bership in TWAs Frequent Flight Bo- 
nus program. The TWA PARS in- 
cludes up-to-date information on do- 
mestic and international flights for 
every published airline schedule in 
the world. 

Additionally, CompuServe will 
combine with Quick & Reilly (the 
nation’s third largest discount brok- 
erage firm) to offer such online ser- 
vices as price quotes and direct or- 
der entry for virtually every stock and 
option listed in the Wall Street Jour- 
nal and current portfolio and tax гес- 
ords. Most important, clients can buy 
and sell securities 24 hours a day 
(with orders placed during evenings 
and weekends executed at the start of 
the following business day). 

CompuServe Inc., 5000 Arlington 
Centre Blvd., PO. Box 20212, 
Columbus, OH 43220 (phone: 614- 
457-8600). 

Guide to Modems, an 8-page pam- 
phlet published by Anchor Automa- 
tion, defines basic modem technol- 
ogy and its applications and provides 


suggestions for product selection 
(with an admirable lack of mention 
of their own product line). Copies are 
available at retailers. 

Anchor Automation, Inc., 6913 
Valjean Ave., Van Nuys, CA 91406. 

VIP Technologies has replaced its 
VIP Terminal with VIP Terminal XL, 
compatible with the C-64 and 128PC 
and featuring X-Modem file transfer 
protocol (to allow transfer of files to 
and from information services using 
same). Price: $39.95. 

VIP Technologies, 132 Aero 
Camino, Goleta, CA 93117 (phone: 
805-968-4045). 

Requiring only a C-64, а 1541 disk 
drive, and a 1526 printer, CAM-64 
(Call Accounting Manager) allows 
businesses to sort outgoing calls by 
station/extension (up to 254), area 
code, common carriers, and other 
categories, each of which may be 
subdivided into number of calls, 
length of calls, etc. Price of autostart 
cartridge, software, and manual is 
$295. 


SOFTWARE EDGE 
Stop playing "Hide-and-Seek" with 
your Disk software! Let your commodore 
ба" "memory" do ай the work for you, 
with MASTERDISK*. Easy Menu- 
Guides make everyone a "pro" in 1 day! 
Here's a small "PEEK" at SOME of the 
POWER of PRODUCTIVITY at your fin- 
gertips 
* a SORTED Master Catalog of ALL your 
з Names, 10%. File info, etc. 
ch * List any File/Disk/ID in seconds, 
automatically, т any of FIVE WAYS. 
* Transter ML-Programs or Files rom Disk 
хо Disk (CATEGORIZE your software) 
+ Stop disaster before it strikes: change 
duplicate ID s fast, without total re-copy. 
= Restore accidentally scratched files in 
sh. with VERIFICATION that they're 


* Works мит 1 or 
win or without Pr 
ASCII) 

+ Ali this + MUCH MORE. for just $29.95. 

SPECIAL Handy-Relerence Card for 
HEX/ASCII/ Binary-to-Decimal Values, =. 
FORMULAS - only $2 with order ($1 for 
all phone orders) 

PLUS: Everybody wants a FAST backup- 
‘copy program How 4 MINUTES. includ: 

—and из FREE with 


мез (1541-type), 
(Commodore or 


Send Check or Money Order to: 
INTEGRATED-SOFTWARE 
SYSTEMS 
P.O. Box 1801 
Ames, IA 50010 
VISA/M C/C O D, call (618) 233-2992 
‘9am-9 pm M-F. 9 am-1 pm Sat & Sun (Central) 


Add $3 Shipping/plus $2 Foreign, COD. 
JA Residents ада 4% Sales Tax 
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The first two releases in 
MicroProses Command Series of combat simulations, re- 
creating some of the greatest battles of the twentieth century. 
READER SERVICE NO. 294 


Input Systems, Inc. 
etto Lake Drive, Miami, FL 3315 
(phone: 305-253-8100). 

Data Mart, Inc. will publish the 
OPPS Directory of Online Personnel, 
Products and Services, to be updated 
twice a year. Registration for the first 
edition is open until June 30, 1985. 

Data Mart, Inc., PO. Box 13542, 
New Orleans, LA 70185-3542 
(phone: 504-866-0828). 


NEW GAME RELEASES 

MicroProses Command Series of 
combat simulations puts you in 
charge of the great armies of the 20th 
century, in a variety of historical or 
“what if" scenarios. 

The first two releases are Crusade 
in Europe, simulating the Allied 
struggle against Germany from D- 
Day to the Battle of the Bulge, and 
Decision in the Desert, recreating the 
battle between Rommels Afrika 
Korps and the British 8th Army for 
control of North Africa. The next 
wave will include Sword of Zion (the 
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Arab-Israeli Wars), Blitzkrieg 1940 
(Germany's early-WWII victories), 
and Drive on Moscow (Hitler's inva- 
sion of Russia). For the С-64; $39.95 
each. 

MicroProse Software, 120 Lake- 
front Drive, Hunt Valley, MD 21030 
(phone: 301-667-1151). 

Incorporaung light pen technolo- 
gy, the Stack Light Rifle allows you 
to shoot'em-up from as far as 10 feet 
away from the screen. Included are 
six disk-based games: High Noon, 
Glorious I2th, Shooting Gallery, Rats 
п" Cats, Escape from Alcatraz, and 
Crow Shoot. Romaro Enterprises 
North American distributor of the ri- 
fle, will release additional games to 
retail for under $2000 each. 

Romaro Enterprises International, 
PO. Box 227, Streetsville Postal Stn., 
Mississauga, Ontario, Canada L5M 
2В8 (phone: 416-820-5235). 

Between April 1 and August 3l, 
Datasoft will mail a 55 rebate to pur- 
chasers of Bruce Lee, Conan, The 
Dallas Quest, Pac Man, Dig Dug, 


NEWS 
Pole Position, Mr. DO!, Zaxxon, or 
Letter Wizard. Rebate coupons can 
be found in appropriately marked 
packages, or with your dealer. 

Datasoft, Inc., 19808 Nordhoff 
Place, Chatsworth, СА 9131 (phone: 
818-701-5161). 

Electronic Arts will award three 
$1000 prizes to those registered own- 
ers of their Adventure Construction 
Set who produce the best games in 
the Fantasy/Medieval, Spy/Mystery, 
and Science Fiction categories, Cop- 
ies of winning games and all other 
entries will be made available to reg- 
istered ACS owners for the cost of 
disk duplication and handling. En- 
tries must be submitted (on disk) by 
January 1, 1986. 

Electronic Arts, 2755 Campus 
Drive, San Mateo, CA 94404 (phone: 
415-571-7171). 


LOW-COST WORD 
PROCESSOR 

The Pagewriter 64 word processor 
features an 80-column scrolling text 
window, onscreen command menus, 
and mailmerge option. A column in- 
dicator above the text lines provides 
a visual indication of the position of 
the text being entered. Available on 
disk ($21.95) or cassette ($18.95). 

VMC Software, PO. Box 326, 
Cambria Heights, NY 11411. 


COMMODORE USER 
SUPPORT 

Good news for Commodore user 
groups: the formation of Commodore 
World, a program designed to pro- 
vide a direct link between Commo- 
dore and user groups around the 
world. Organizations approved for 
membership receive suggestions for 
organization, advertising support, and 
pre-release product news through the 
program's Input/Output newsletter. 

Groups wishing to join should con- 
tact the User Group Coordinator at 
Commodore (215-431-9100); they will 
receive an application, sample by- 
laws, color advertising posters, and 
the first issue of the newsletter. Ap- 
proved groups will receive an access 
code to the Commodore World sec- 
tion of Commodore's telecommuni- 
cations network, additional posters, 


Break the BASIC 
language barrier 


VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package. You can distribute free RUN 
TIME version without paying royalties! 
ISBN/ 0-916439-26-7 


BASIC COMPILER 64 - compiles the 
complete BASIC language into either fast 6510 
machine language and/or compact speedcode. Get 
your programs into high gear and protect them by 
compiling 

ISBN# 0-916439-17-8 


$59.95 


$39.95 


MASTER-64 - professional development 
package for serious applications. Indexed lile 
system, full screen management, programmer's 
aid, BASIC extensions, 100 commands 
ISBN/ 0-916439-21-6 $39.95 
PASCAL-64 - {ull Pascal with extensions for 
graphics, sprites, file management, more. Compiles 


to 6510 machine code and can link to 
Assembler/Monitor routines 
ISBN 0-916439-10-0 $39.95 


ADA TRAINING COURSE - teaches 
you the language of the future. Comprehensive 
Subset of the language. editor, syntax 
checker/compiler, assembler, disassembler, 120+ 
page guide 


ISBN# 0-916439-15-1 559.95 


ISBN 0-916439-32-1 


$39.95 


C LANGUAGE COMPILER · г tui C 
language compiler. Conforms to the Kernighan & 
Ritchie standard, but without bit fields. Package in. 
cludes editor, compiler and linker 


ISBN# 0-916439-28-3 $79.95 


ASSEMBLER MONITOR-64 -a 
macro assembler and extended monitor package 
Assembler supports floating point constants 
Monitor supports bank switching. quick trace. single 


step, more 
ISBN/ 0-916439-11-9 $39.95 


XREF-64 - indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 

ISBN# 0-916439-27-5 $17.95 


OTHER TITLES ALSO AVAIL- 
ABLE - WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 
Call today for the name and address of 
your nearest local dealer 


PHONE: (616) 241-5510 


For postage and handling include $4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard, 
VISA and American Express accepted 
Michigan residents ШШШ € 

incl 4% sales tax. liz 0. ^] 


FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 


You Can Count On 


Abacus 


ҮН 
ННН 
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bulk shipments of the monthly news- 
letter, product brochures, and—far- 
fetched as it sounds—a "reliable" 
telephone contact at Commodore. 

Commodore Business Machines, 
Inc., 1200 Wilson Drive, West Ches- 
ter, PA 19380. 


EDUCATIONAL PROGRAMS 

The Keyboard Chord/Scale Mas- 
ter sharpens the user's keyboard abil- 
ities through a variety of sight and 
sound reinforcements. Chord Display 
and Scale Display let the user view 
and hear the most common chords 
and scales. Chord Review and Scale 
Review include drill, quiz, and com- 
pete options. The Compare mode re- 
quires comparison of one chord with 
another in the same or a different key 
signature. For the C-64; $39.95 plus 
$1.50 postage (MI residents add 4% 
sales tax). 

Valhala Software, 205 E. Hazel- 
hurst, Ferndale, MI 48220. 

Kidbit Software has enhanced two 
previous VIC releases and combined 
them on one disk for the 64. The 


Same/Not Same Game lets children 
build a spaceship by telling the Cen- 
tral Computer which shapes, colors, 
directions, or letters are different 
from the others in the group. Alpha- 
Bee Sequence requires children to 
supply missing letters of the alphabet 
to a forgetful bee. $26.95. 

Kidbit Software, 7001 Sunkist 
Drive, Oakland, CA 94605 (phone: 
415-638-1243). 

The Chipwits are 16 robots which 
children must help through 49 differ- 
ent mazes. They do this by program- 
ming the robots to move, feel, see, 
smell, remember, and more. For the 
С-64; $29,00-$39.00. 

Epyx, Inc., 1043 Kiel Court, 
Sunnyvale, CA 94089 (phone: 408- 
745-0700). 

Wiurble incorporates vocabulary 
and spelling training into a compu- 
ter board game for ages 10 up. The 
game editor allows for hundreds of 
rule variations. 

Sher-Tek, PO. Box 6808, Stn. “J”, 
Ottawa, Ontario, Canada K2A 37А. 

An elementary through high school 


vmm Dens 
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DoopLe Visits PRINT SHOP 
CONVERT DOODLE PICTURES FOR USE IN PRINT 
(SCREEN MAGIC) VICEVERSA. MENU DRIVEN 


DOODLE, PRINT SHOP, DVP 
DVP WITH PURCHASE OF DO 


BUSCARD II 

IEEE, 40 BASIC, MONITOR 
SWITCH SELECT DEVICE 4-10 
IEEE or SERIAL BUSS 


C-64 LINK II 
IEEE 40 BASIC 
SERIAL and/or IEEE 
FAST IEEE ACCESS 
TRANSPARENT 


соуох 


COMPUTER EYES 10599 


Nu „БМ a 


INT SHOP 


EPUM SET 


1995 


SHOP 
7995 


13% 

SYSRES 7995 
BASIC EDITOR 

COMPLETE RENUMBERING DEFINE KEYS 
FUNCTIONS SCREEN DUMP. FINDS. 
CHANGES. RELOCATABLE WORKS EVEN 
AFTER RESET 
THE CADILLAC" MICRO MAG 


FLEXFILE 2.2 
MULTIPLE KEYS. 
EASY TO USE 


SPECIAL" 


5995 


400% 


SFD 1001 
IMEG - ЕЕЕ DRIVE 


To Order: CALL or WRITE—————| 
Р.О. Box 391 White Plains, NY 10602 | 


<s 
Em 


TERMS Send check or money order for total 
purchase price, plus $275 for shipping via 
UPS, $400 fr shining поп UPS Personal 
checks (allow 10 days to clea 

NY RESIDENTS ADD APPLICABLE TAXES 


SOFTWARE LINK 
283 Mamaroneck Ave. 
White Plains, NY 
(retail outlet) 


914-683-2512 
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WHICH IS 
DIFFERENT? 


Same/Not Same Game: for ages 3 to 7. 
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teacher's guide, The Investors Chal- 
lenge is designed for use with Blue 
Chip Softwares Millionaire stock 
market simulation, Tycoon commod- 
ity market simulation, and Baron real 
estate simulation. Price is $6.95. 
Blue Chip Software, Inc., 6744 
Eton Avenue, Canoga Park, CA 
91303 (phone: 818-346-0730). 


SOUNDCHASER 64 

Passport MusicSoftware's $199.00 
Soundchaser 64 is the first four-oc- 
tave music keyboard for use with the 
64. Included is software that trans- 
forms the 49-note music system into 
а full nine octave range, as well as 
allowing the user to create a variety 
of instrument sounds for either a 
monophonic or polyphonic keyboard. 
The keyboard can be used with Pass- 
ports Macmusic ($49.95), which pro- 
vides a visually oriented music com- 
position system. 

Passport also distributes a line of 
Computer Sheet Music, allowing a 
student to play at his own pace while 
the onscreen notes he plays correct- 
ly change in color. 

Passport Designs, Inc., 625 Mira- 
montes Street, Suite 103, Half Moon 
Bay, CA 94019 (phone: 415- 
726-0280). 


MASTERDISK CHANGE 

Іп February's Scuttlebutt we ап- 
nounced Masterdisk, which compos- 
es a master catalog of your disk li- 
brary. Since then, Integrated-Software 
has discovered that the 4-minute 
backup program included on the disk 
was pirated from a copyrighted Ger- 
man program. Taking its place will 
be Copy 18, which will copy track 18 
(the disk directory) from any disk and 
make modifications. 
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WHEN YOU BUY 
TIMEWORKS SOFTWARE 
YOU GET MORE 
THAN SOFTWARE. 


You get our Customer 
Technical Support Team 


At the other end of our toll-free hotline, 
you'll find our full-time Customer Techni- 
са! Support Team. With Timeworks, you 
get immediate answers . . . free of charge 
to all registered users. Our Timeworks 
experts help you use each of our pro- 
grams to its fullest potential. Not everyone 
provides this necessary support, let alone 
for free. 


P 
Data Manager 2 
wood: 


jc Ra 


You get our liberal 
Trade-Up Policy 


If, at any time in the future, you wish to 
buy an updated version of any Timeworks 
program, or if you upgrade your computer 
system, you may exchange your original 
program for any other program we 
publish. Here's how: 

* Purchase your new Timeworks program 
at your favorite dealer. 

Send us the Timeworks program you 
wish to trade in, your paid receipt for 
the new program, and the title of the 
Timeworks program you would like in 
exchange. It's FREE OF CHARGE, if 
the suggested retail price of both pro- 
grams is the same. Or, include your 
check or credit card number to cover 
only the retail price difference between 
your old program and the one you wish 
in exchange. Please add $4.70 for 
shipping and handling, in either case. 


“Мет be glad to furnish a list of 


Timeworks' suggested retail prices, 
upon request. 


Credite 
Wond Wizand 


More power for your dollar 


2 Otor valas for 90 daya hom date ot 


гобопайво 
Сол ата and Ra, (с 
© 1985 Timeworks, Ес. А пун reserved. 
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You get our Money Back 
Guarantee 


If you can find anything that works better 
for you, we'll buy it for you. Simply send 
us your Timeworks program, your paid 
receipt, and the name of the program you 
want, along with your check or credit card 
number for any retail price difference. If 
it's available, we'll send it to you." 


Look for these and other Timeworks pro- 
grams at your favorite dealer. Or contact 
Timeworks, 444 Lake Cook Road, Deer- 
field, IL 60015. Phone: (312) 948-9200. 


Available for Apple, ІВМ, Commodore, 
and Atari computers.** 


Presenting the computer 
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Mart, Newsstand, On-line Connection, Рег- 


shopping service that delivers sonal Computer Store, Record Emporium, 


discount prices, name-brand 
merchandise, and in-depth 
product information. 


‘To make your computer even more 
useful, join CompuServe and shop in 
our Electronic Mall. Easy enough for 
beginners, it's open 24 hours a day, 

7 days a week. And it offers a wide range 
of goods and services from nationally 
known stores and businesses including 
Bloomingdale's, Waldenbooks, American 
Express and Commodore. 
CompuServe’s Electronic Май” lets 
you shop at your convenience in all 
these departments: 

The Auto Shop, Book Bazaar, Finan- 
cial Mart, Leisure Center, Merchandise 


The Electronic Май” is a service of CompuServe Ine and L M. Berry & Company 


Specialty Boutique and Travel Agency. 


‘Take the CompuServe Electronic 

Mall 15-Minute Comparison Test. 

What you can do in 15 minutes 

shopping the Electronic Mall way 

Access descriptions of the latest in 
computer printers, for instance. 

* Pick one and enter the order 
‘command. 

* Check complete descriptions of 
places to stay on your next vacation. 

* Pick several and request travel 
brochures 

е Access a department store catalog 
and pick outa wine rack, tools, 
loys...anything! 

* Place your order. 
What you can do in I5 minutes shop- 
ping ihe old way 

* Round up the family and get in 
the car. 
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The Electronic Mall—A Valuable 
Addition to the Vast World of 
CompuServe. 


CompuServe Information Services 
bring you information, entertainment, 
personal communications and more. 


You can access CompuServe with 
almost any computer and modem, 
terminal or communicating word 
processor. 


TobuyaCompuServe Subscription 
Kit, see your nearest computer dealer. 
To receive our informative brochure, or 
to order direct, call or write: 


CompuServe 


Information Services, P.O. Box 20212, 
5000 Arlington Centre Blvd. Columbus, OH 43220. 


In Ohio call 614-457-0802. 


Integrated-Software Systems, PO. 
Box 1801, Ames, IA 50010 (phone: 
515-233-2992). 


VCR TITLE GENERATOR 

The Video Title Editor lets C-64 or 
VIC 20 users incorporate title screens 
into their video tapes without the 
need for a camera, second VCR, or 
high-priced character generator. In- 
cluded are over 20 displays for birth- 
days, weddings, vacations, and more. 
Customized displays can also be de- 
signed. Price is $29.95, on either cas- 
sette or disk. 

Videoware, 19777 W. 12 Mile Rd., 
Suite 180, Southfield, MI 48076 
(phone: 313-626-7208). 


HANDICAPPING PROGRAM 
The Racing Analysis Program 
Package includes Thoroughbred, 
Harness, and Bet Return programs 
which make predictions based on past 
performance data. About five min- 
utes are required to enter the data for 
each race. For the 64 or VIC 20, on 
sette or disk; 529.95 plus $2.00 
postage from Software Exchange. 
PO. Box 5382, W. Bloomfield, MI 
48033 (phone: 313-626-7208). 


WILL WRITING SOFTWARE 

By simply recording your answers 
to a series of questions, the Willwrit- 
er disk/software package generates 
and prints a will (good in every state 
except Louisiana) and provides you 
with information on signing and wit- 
nessing. You may update your will an 
unlimited number of times. For the 


55, 950 Parker St., Berke- 
ley, СА 94710. 


ASTRONOMY SOFTWARE 

For readers who thought Commo- 
dore's Sky Travel went where no рго- 
gram had gone before, a list of 45 as- 
tronomical software programs has 
been published by the non-profit As- 
tronomical Society of the Pacific. A 
list of reference books is also in- 
cluded. Send a $1.00 donation to cov- 
er postage and handling to A.S.P. 
Computer List, 1290 24th Ave., San 
Francisco, CA 94122 (phone: 415- 
661-8660). 


The Paper 
Catcher will 
provide a 
convenient 
landing 
place on top 
of your 
printer for 
continuous 
feed paper. 
READER 
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THE BUDDY SYSTEM 

The Paper Catcher ($49.95) stacks 
printed sheets of continuous-feed pa- 
per neatly atop a variety of 80- and 
132-column printers. Vinyl feet pro- 
vide added stability. Built of light- 
weight, high impact plastic, its putty 
color will blend in with most hard- 
ware, 

Buddy Products, 1350 South Leav- 
itt St., Chicago, IL 60608 (phone: 
312-733-6400). 


FAST LOAD LOWDOWN 
From the research lab of Ahoy! 
writer Cheryl Peterson comes the fol 
lowing addendum to last month's 
amination of Fast Load from Epyx: 
Commodore computers interfaced to 
a printer through certain parallel 
boxes will not be able to use the pro- 
gram's quick copy function. A tech- 
nical support person at Epyx ех- 
plained that Fast Load requires all the 
data lines, rendering it unoperation- 


riting 
ement Prin onciliation 


jame 
y ot the numi nd 
counting ' 
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The 
Master 
Handicapper 


EVALUATES FROM RACING FORM! 


$159.95 compte 
EGLD, Enhanced "Gold" Edition 


$99.95 win Data Base Magen 
NBA, Basketbali T 


LOT. LOTTERY ANALYSIS™ 
Sia 


BROCHURE AVAILABLE 


"Send check / money order VISA / Mastercharge 
include expiration date) to 
ME е rof. Jones 


TELEPHONE 
(208) 342-6939 


Loud 1D 83702 


miim => 
wi 


IBM, APPLE, TRS-80, 
C-64 AND OTHERS 
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1940 W. State St. 
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al with certain interfaces. Two of the 
primary offenders, unfortunately, are 
also two of the most popular: Card- 
co and the (Orange Micro) Grap- 
pler. 

The documentation also fails to 
point out that a Commodore 1541 
must be used; Fast Load will not 
work with an MSD, Indus GT, etc. 
Finally, dont misunderstand Epyx’ 
claim that the program will work with 
most copy-protected software. It will 
run most copy-protected software. It 
will not copy it. 

Epyx, 1043 Kiel Court, Sunnyvale, 
CA 94089 (phone: 418-745-0700). 


BOOK RELEASES 

The Computerfacts series from 
Howard W. Sams & Co., Inc., re- 
veals the inner workings of Commo- 
dore hardware with wiring diagrams, 
photos, disassembly instructions, 
parts lists, troubleshooting tech- 
niques, and other repair data. Avail- 
able for the C-64, C-16, Plus/4, VIC 
20, 1525 printer, 1701 monitor, or 
1541 drive; $19.95 each. 

Also newly released, the Commo- 
dore 64 Troubleshooting and Repair 
Guide covers proper diagnostic tech- 
niques and lists specific malfunctions 
in trouble charts organized by com- 
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puter subsystem. List price is $18.95. 

Finally from Sams, Commodore 64 
Jor Kids from 8 to 80 works hands-on 
with the new user to create simple 
programs. Numerous illustrations are 
included. Price is $12.9: 


Computerfacts series: diagnostic aid. 


A catalog of 347 book titles is 
available from Howard W. Sams & 
Co., Inc., 4300 W. 62nd St., Indi- 
anapolis, IN 46268 (phone: 1-800- 
428-SAMS or 317-298-5400). 

Four new C-64 publications from 
Prentice-Hall: 

Easy Interfacing Projects for the 
Commodore 64 (510.95) provides 
dozens, ranging from mechanical ac- 
tuators to analog-to-digital convertors, 

Multiplan for the Commodore 64 
($14.95) offers a tutorial and over a 
dozen home and business applica- 
tions (with listings). 

With an emphasis on graphics gen- 
eration, Advanced Machine Code 
Programming for the Commodore 64 
($12.95) explains how to tap into the 
64s 6502/6501 microprocessor. 

More BASIC Is Childs Play, Com- 
modore edition ($19.95) picks up 
where its precursor left off, teaching 
children as young as 7 to p 
Prentice-Hall, Englewood Cli 
07632 (phone: 201-592-2640). 

Einstein's Beginners Guide to the 
Commodore 64 (57.95) provides a 
general introduction to computer use 
and programming. Harcourt Brace 
Jovanovich, 1250 Sixth Ave., San Di- 
ego, CA 92101 (phone: 619-231-6616). 

Understanding Microprocessors 
($14.95) covers software, program- 
ming concepts, assembly language, 
and applications of 4-, 8-, and 16-bit 
microcomputers. Texas Instruments 
Inc., РО. Box 225474, M/S 8218, 
Dallas, TX 75265 (phone: 214- 
997-3926). 


IT WRITES THE SONGS 

Cantus, the Music Improviser pur- 
ports to be the first microcomputer 
program that invents its own music. 
Instead of notes, the user enters 
choices for tempo, harmony, rhythm, 
counterpoint, voice range, and tone 
color, from which Cantus creates 
three-voice improvisations which play 
continuously with no repetition. Each 
set of choices becomes a "patch" 
which can be saved and later Dim 
Price is $54.00 plus $2.00 postage 
and handling. 

Algo-Rhythm Software, 176 Min- 
eola Blvd., Mineola, NY 11501 
(phone: or 516- 
294-7590). 


800-645-4441 


priests with the task of movit 
rings, being careful never to pl 
larger ring atop a smaller, until the 
rings were placed in like manner on 
another tower. When this has been. 
accomplished, in about six hundred 
billion years, the universe will come 
to an end. Such, at least, is the legend. 
Actually, Edouard Lucas, who in- 
vented the Tower of Brahma puzzle, 
devised this story to popularize his 
creation. The puzzle has been a fa- 
vorite for several generations. Now 
you can try your skill on a less for- 
midable (though equally challenging) 
version using your Commodore 64. 
You may select to attempt from two 
to eight rings. Each additional ring 
represents a doubling in difficulty. To 
move two rings requires three moves; 
three rings, seven moves; four rings, 
fifteen moves; eight rings, two hun- 
dred fifty-five moves. The number of 
moves is determined by the formula 
21 (number of rings)-1. Assuming 
the priests of Brahma moved one ring 
each second, it would require (2. + 
64)=1 seconds, or about six billion 
centuries, before the smallest ring 
would be placed on top of the tower. 
With up to four rings, the puzzle 
is fairly easy to solve. After that, 
though, you must plan your moves 
carefully in order to complete it in 
the minimum number of moves. To 
end the puzzle, press “Т. Also, if you 
become completely baffled, again 
press ЧТ and you will be asked ‘Com- 
puter Solution (Y/N)?”. Answer “Ү” 
and the puzzle will reset and solve 


BY DANIEL MILLER 
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г ics in lines 2150-2240. Each ring is 
га sprite defined within lines 1990- 

2050. The DATA lines for each sprite 
show а way of conserving memory. 
‘The interpreter automatically READs 
a value of zero if a value is not en- 
tered. Another handy (though seldom, 
used) command in the program is 
FRE(0). Normally, this function is 
used to calculate the amount of free 
RAM available for a program and its 


net 


variables. In a program which creates 
and manipulates strings such as Tow- 
ers, it performs a more valuable ser- 
‘Vice. String values created during the 
‘course of a program run are stored 
in upper memory one beneath an- 
other until space is depleted. At this 
point, the process of garbage collec- 
tion begins and may take several min- 
utes, during which time the program 
stops and the keyboard is dead. Us- 
ing a statement such as СТ-ЕКЕ(0) 
forces an immediate garbage collec- 
tion. Since this is done on each move, 
the number of strings that have ac- 
cumulated is small and the process 
is instantaneous. O 

SEE PROGRAM LISTING ON PAGE Ш 


‘rom $28.96. REDUCE THE EFFECT OF GRAVITY ON YOUR BACK. 
Sting туйм\у а a amenteral car you kwer back 6 sup 


The Fiest“Intligent” Chair, FORMERLY $8995" Now on se 


| POSTURE SUPPORT 
THE BACK CHAIR 


SHOP FASTER BY 2153 
1-805-966-718 


‘sis Peers De Mal ным е i я Un ве. 
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FANG (CUR COW NGAMIES 
ОМТЫ VIC ANID 6-4 


hen the Commodore 64 first came out, 

опе of its most touted features was the mu- 

sic capability. I had programmed on the 

Atari, and naturally I was a little skeptical 
about the 645 three voices—didnt the Atari have four? 
NE s 1 Then I heard what the 64 could do with sound envel- 
d opes and waveforms, and I was willing to forgive the miss- 
ing voice for the great improvement in quality. 

Е Trouble was, all that wonderful sound was locked away 
from the BASIC user in a series of POKEs. They didn't 
give Commodore BASIC a SOUND statement compar- 

us able to the Atari's, which set the pitch, the distortion, 
j and the volume in a single fast statement. 

Instead, you have to set up the sound envelope and gen- 
eral volume in advance, and then each time you want 
to change the pitch or sound a new note, you have to: 

1. Set two frequency registers for each voice. 

2. Gate each voice open to begin its tone. 

3. Gate each voice closed to stop. 

Since every single one of these steps is a POKE, a 
notoriously slow command in Commodore BASIC, start- 
ing and stopping a single three-note chord takes twelve 

XP AM To МД POKES and far, far too much time. 

About a year ago, I got a PCjr and, despite that ma- 
chine’s many drawbacks, I saw for the first time what 
а humane music program system could be. 

Don't misunderstand—the Commodore 64 still has far 
and away the best sound chip on the market. The SID 
hasn't been matched by anybody. 

But the PCjr has a mini-language for playing music. 
All you do is set up a string that contains the letters for 

Rane the musical scale—C, D, E, F, G, A, and B—along with 
instructions about sharps and flats, octave changes, and 
the duration of the note, and BASIC plays the string. It 
even does it in the background, so that your program 


| 


| Doyou want fo put a LE robs on router er 
» songintoyourprogrom? — метан once a year and udi 
Y Heres a routine ihat lets ES ene ТЕСТЕН MEUS 
уси уре in the standard Rue NER onec arcte; 
musical nofes—and aO e А t can 
turns them into music Mie ca tats ышы Собо кы ou can 
automatically. Ee i dpa BASIC RA паара 


gram stuff. Atari, you can have a SOUND statement, 
but don't make it too easy to use. And you, Commodore, 
pe can't do anything for them. Just a bunch of POKEs. 
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PHOENIX REO 


SOFTWARE, 


і 


} 
ADVENTURE GAME 
TUTORIALS 


Disk | Disk II Disk III 
TEXT ADVENTURES MEGAVENTURES GRAPHIC ADVENTURES 
ZORK | ULTIMA II GOTHMOGS LAIR 
гонки ULTIMA III MASK OF THE SUN 
ZORK IIl ULTIMA IV DEATH IN THE CARIBBEAN 
ENCHANTER RETURN OF HERACLES BLADE OF BLACKPOOLE 
SORCEROR QUESTRON CRITICAL MASS 
STARCROSS Only $9.99! GRUDS IN SPACE 
SUSPENDED ULYSSES AND THE GOLDEN FLEECE 
PLANETFALL WIZARD AND THE PRINCESS 
DEADLINE ASYLUM 
WITNESS THE INSTITUTE 
Only $9.99! Only 59.99! 


Have you ever played ап Adventure Game where you just plain got stuck and couldn't get any further? 
Well, here's the answer — Phoenix Red's Adventure Game Tutorials. They can be used as hints or they 
will tell you exactly what to do to get out of all those sticky situations. These Tutorials are written for 
your computer (A Commodore 64) not someone elses, so they work. 


We pay postage and handling. "We put out money where our 
A must-have for all adventures. software is, not our copy 
Order yours today! protection." 
Send check or Money Order to: — Phoenix neo 
Phoenix Red Software 
2705 Oak Dr. 


Houston, Texas 77539 


Call 713-280-8113 for more info. 
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COMMODORE: That's fine. Well still sell five for 
every one of yours. 


THE ALL-PURPOSE MUSIC ROUTINE 

Are you going to sit still for that kind of collusion? 
Am I? Not a chance. 

Instead, in this month's column I bring you Card's All- 
Purpose Music Player. To use this routine, you save it 
and then load it in at the beginning of your program- 
ming session. It uses up line 10, lines 60-70, and lines 
9000-9990. Then you write your program around it. Put 
your movement routine in lines 20-50, for instance, and 
your main loop at 100. Program, in other words, just like 
normal. 

Whenever you want to play a tune—or part of a tune— 
have your program GOSUB 60, and a phrase of the tune 
will play. 


STRINGING ALONG 

Best of all, to enter the melody, you don't have to cal- 
culate all the frequency values for the notes you're us- 
ing, or set up a bunch of DATA statements. Instead, you 
enter each phrase of the music as a string, using the stan- 
dard musical alphabet—the scale C, D, E, F, G, A, and B. 

This means that you can transfer a song more or less 
directly from sheet music or, if you're good at music, 
right out of your head. АП you have to do is divide the 
melody into a series of usable chunks, called "phrases." 
Each phrase can be as long as 255 characters, but for 
sheer practicality you'll probably break the music up into 
much shorter phrases. 

The note strings are set up starting at line 9500 in all 
three versions of the program included here (Three-VWoice 
Player, One-Voice Player, and Broken Melody). 

Line 9500 tells how many voices you're going to use, 
minus 1. That means that for three voices, you type 
EV %=2; for iwo voices, you type EV %=1. (One-Voice 
Player has no line 9500, since only one voice is possi- 
ble with this version of the routine. This allows it to be 
streamlined, and the music can play much faster.) 

In line 9510, the variable Е5% is set to the number 
of phrases in the song, minus 1. That means that if your 
song has 9 phrases, you will type ES%=8. 

Starting at line 9520, the actual music strings are set 
up. There are three string types for each phrase: 

Duration. MDS(PH) sets the duration for each note 
in the phrase. This is the same for all three voices—the 
three voices must each execute exactly the same number 
of notes (or rests) per phrase. The duration string con- 
sists of numerals from 0 to 9. 0 is the shortest duration, 
and 9 is the longest. By changing, say, the fifth number 
in the MDS(PH) string, you change how long the fifth 
note of that phrase will sound. 

(These duration numbers are used as an index into a 
duration array, DU %( ), which is set up at lines 9200 
and 9210. If you want to change how long a duration 1 
lasts, just change the second number in the DATA state- 
ment in line 9210.) 
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Melody. МЕ$(РН УС) sets the pitch or frequency for 
each note in the phrase, with a separate string for each 
of the three voices. The notation is very simple. To play 
the note A, type A. To play the note B, type B, and so on. 

To play sharps, type the letter while holding down 
SHIFT. For instance, to play F-sharp, hold down SHIFT 
and then type F. A graphics character will appear in the 
string. 

To play flats, type the letter while holding down the 
COMMODORE logo key. To play B-flat, hold down 
COMMODORE and then type В. Again, a graphics char- 
acter will appear in the string. 

То make the voice silent for one note, type the @ sign. 

Octave, MV$(PH.VC) sets the octave in which the note 
will be played. There are eight possible octaves, from 
0 (the lowest notes) to 7 (the highest notes). Each posi- 
tion in the МУЗ(РН МС) string corresponds to that voice's 
note in the melody string. 

In other words, the octave string MV$( ) determines 
which octave a note will be in, and the melody string 
MES( ) tells which note within that octave will be played. 

If several notes in a row are in the same octave, you 
only have to enter the octave number for the first note, 
and then enter spaces for the subsequent notes. There- 
after, for that voice, you need only enter octave num- 
bers when the octave changes. 


PRN BUTTUN 


RESET SWITCH Only 519.95 


ISIC RECOVER PROGRAN INCLUDED 
suntocks "Pe: 


‘Plugs Into Serial port 
sAllovs Full Use of Serial Port 
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Compatible With Commodore 64 and VIC 


FAIL CHECK OR MONEY ORDER To: 
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Each octave consists of the notes from C up to the next 
B. That means that if your melody string consisted of 
an F-major scale, played in voice 0, and you wanted the 
scale to play very quickly, your strings would be typed 
like this: 


Duration: MDS(PH)—*00000000" 
Melody: МЕ$Ѕ(РН 0) —"FGABCDEF" 
Octave: — MVS(PH.0)="4 5 


Notice that there are the same number of characters 
in each string in the same phrase. (The B would actu- 
ally be a B-flat, and you would type COMMODORE-B.) 
The octave changes when the scale goes up from B-flat 
to C. In other words, C is the lowest note of each octave. 

(You can cheat, however, and type C-flat, which gets 
you a B in the next octave down without changing oc- 
taves. Likewise, you can type B-sharp and get the C from 
the next octave up. But why bother?) 


PLAYING AROUND 

This is really all you need to know to use this routine. 
All three programs use the same fundamental routine, 
with only a few changes, so once you've typed in one, 
it will be relatively easy to make the changes for the other 
programs (Опе-Юісе Player has the most differences). 


Program Your Own БЕЗ | 
7 20 599. 50 


PLUGS INTO USER PORT. 
NOTHING ELSE NEEDED. 
EASY TO USE. VERSATILE. 


е Read or Program. One byte or 

32K bytes! 

‘OR Use like a disk drive. LOAD, 
SAVE, GET, INPUT, PRINT, CMD, 
OPEN, CLOSE—EPROM FILES! 

Our software lets you use familiar BASIC commands to 

create, modify, scratch files on readily available EPROM 
chips. Adds a new dimension to your computing capability 

Works with most ML Monitors too. 

Make Auto-Start Cartridges of your programs. 

е The promenade” C1 gives you 4 programming voltages, 

2 EPROM supply voltages, 3 intelligent programming 

algorithms, 15 БИ chip addressing, 3 LED's and МО | 

Switches. Your computer controls everything from software! 

Textool socket. Anti-static aluminum housing. | 

EPROMS, cartridge PC boards, etc. at extra charge. 

Some EPROM types you can use with the promenade | 

ате 


promenade~ 


zs ss o ны 
3 

B om HU ge ш Bie 
LM ы бє же 


Сай Toll Free: 800-421-7731 or 408-287-0259 
In California: 800-421-7748 


JASON-RANHEIM 


580 Parrott St., San Jose, СА 95112 
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To use the routine, all you need to do is type in your 
own songs — setting the values of EV 96, ES%, and the 
duration, melody, and octave strings for every phrase and 
voice. Then whenever your program executes GOSUB 
60, the routine will play the next musical phrase. 

There are other changes you can make, however. Lines 
62 and 68 can be altered by REMing one and executing 
the other, to switch from normal to staccato; or you can 
REM them both and get a legato sound (or nothing at 
all, depending on your ADSR envelope). 

You can also experiment with different duration val- 
ues at 9210. One limitation, though, is that you can't get 
any faster than 0. Since this is a BASIC program, not 
machine language, and we're still using those POKEs, 
there's a limit to how fast you can go. The ideal music 
system uses machine language routines during the verti- 
cal blank interrupt— but this is a teaching column, not 
a software column, and so we'll stick with BASIC. 

“ош can also change the elements of the ADSR envel- 
oped by altering lines 9020, 9030, 9040, and 9050; and 
you can change the waveforms in line 9070. Next month 
ТІ get into much more detail about how waveforms and 
envelopes are used, and we'll experiment with some sound 
effects; for now, though, you can make your own experi- 
ments by changing one or two parameters at a time. 

The three programs show some of the things you can 
do. Three-Voice Player plays God Save the King (My 
Country, Tis of Thee) using a stately organ tone. One- 
Voice Player plays The Mexican Hat Dance at top speed, 
with a harpsichordlike hammered-string sound. Broken 
Melody plays Im on My Way (from the musical Paint 
Your Wügon by Alan Jay Lerner and Frederick Loewe), 
using a fife sound for the melody line and a plucked-vio- 
lin sound for the accompaniment. 

Have Patience. When using the three programs, re- 
member that in order to make the running time for the 
music very quick, most of the work is done during the 
execution of the setup routine at 9000. Especially time- 
consuming is the conversion of the strings from musical 
notes to values that music routine can use efficiently. A 
song as long and complex as the one in Broken Melody 
takes a couple of minutes to be ready. If we were working 
іп machine language, this wouldn't Бе necessary, but the 
long setup time is the price we pay for being able to en- 
ter the music as musical notes and still have it play rela- 
tively quickly. 


HOW SHOULD YOUR GAME USE MUSIC? 

Obviously, this routine can't be used for background 
music, though that's one of the best uses for music in 
a game. If you've ever sung along with a video game 
(Xevious, Gyruss, and Elevator Action are particularly 
musical, Гуе noticed), you know that background mu- 
sic can set the tempo and mood, getting more intense 
as the player gets further along in the game. 

But even when the music has to take place in the fore- 
ground, stopping everything else, the phrases of a song 
can be very useful. For instance, in a quiz game, instead 


If you have been looking very long, you have 
probably discovered that there are Just too 
‘many claims and counterclaims in the printer 
market today. There are printers that have 
Some of the features you want, but do not have 
others. Some features you probably don't care 
about: others are vitally important to you. Же 
understand. In fact, not long ago, we were in. 
the same position. Deluged by claims and 
counterclaims, Overburdened by rows and 
rows of specifications, we decided to separate 
all the facts — prove or disprove all the claims 
to our own satisfaction. So we bought printers. 
We bought samples of all major brands and 
tested them, 


Our Objective Was Simple 
We wanted to find that printer which had all 
the features you could want and yet be sold 
directly to you at the lowest price. We wanted 
to give our customers the best printer on the 
market today at a bargain price. 


The Results Are In 

The search is over. We hae reduced the field to 
а single printer that meets all our goals (and 
тоге), The printer is the GP-550 from 
Seikosha, a division of Seiko. We ran this 
printer through our battery of tests and it 
came out shining. This printer can do it all. 
Standard draft printing up to a respectable 
(and honest) 86 characters per second, and 
with a very readable 9 (horizontal) by 8 (ver- 
tical) character matrix. At this rate, you will get 
an average 50 line letter printed In only 28 
seconds. 


"МӘ" Mode 

One of our highest concerns was about print 
quality and readability. The GP-550 has a print 
mode termed Near Letter Quality printing (NLQ 
mode). This is where the GP-550 outshines all 
the competition. Hands down! The character 
matrix in NLQ mode is a very dense 9 (horizon: 
tal) by 16 (vertical). This equates to 14,400 ad- 
dressable dots per square inch. Now we're talk: 
Ing quality printing. You can even do graphics. 
іп the high resolution mode. The results are 
the best weve ever seen. The only other 
printers currently available having resolution 
this high go for $500 and more without the in- 
terface or cable needed to hook up to your 
computer. 


Features That Won't Quit 
With the GP-550 your computer can now print 
40, 48, 68, BO, 96, or 136 characters per line. 
You can print in ANY of 18 font styles. You not 
only have the standard Pica, Elite. Condensed 
and Italics, but also true Superscripts and 
Subscripts. Never again will you have to worry 
about how to print H20 or X2. This fantastic 
‘machine will do it automatically, through easy 
Software commands right from your keyboard. 
All fonts have true descenders. 


One of the fonts we like best is “Proportional” 
because it looks most like typesetting, The 
spacing for thin characters like "i" and 71% are 
given less space which “tightens” the word 
making reading easier and faster. This is only 
опе example of the careful planning put into 
the GP-550, 
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Do you sometimes want to emphasize a word? 
It's easy, just use bold (double strike) to make 
the words stand out. Or, if you wish to be even 
төге emphatic, underline the words, Or do 
both. You may also wish to “headline” a title. 
Each basic font has a corresponding elongated 
(double-wide) version. You can combine any of 
these modes to make the variation almost 
endless. Do you wnat to express something 
that you can't do with words? Use graphics with 
your text — even on the same line. 


You can now do virtually any line spacing you 
want. You may select 6, В, 7% or 12 lines per 
inch. PLUS you have variable line spacing of 
12 lines per inch to infinity (no space at all) 
and 97 other software selectable settings іп 
between. You control line spacing on a dot-by- 
dot basis. If you've ever had a letter or other 
document that was just a few lines too long to 
fit a page. you can see how handy this feature. 
ік. Simply reduce the line spacing slightly and 
+, VOILA! The letter now fits on one page. 


Forms? Yes! 

Your Letterhead? Of Course! 
Do you print forms? No problem, This unit will 
do them all. Any form up to 10 inches wide. 
The tractors are adjustable from 4% to 10 in- 
ches. Yes, you can also use single sheets. Plain 
typing paper, your letterhed, short memo 
forms, anything you choose. Any size under 
107 in width. Multiple copies? Absolutely! Put 
forms or individual sheets with carbons (up to 
3 deep), and the last copy will be as readable as 
the first. Spread sheets with many columns? Of 
course! Just go to condensed mode printing 
and print a full 136 columns wide. Forget ex- 
pensive wide-carriage printers and changing to 
wide carriage paper. You can no do it all on a 
standard ВИ: page. 


Consistent Print Quality 
Most printers have a continuous loop ribbon 
cartridge or a single spool ribbon which gives 
nice dark printing when new, but quickly starts 
to fade after a while. To keep the printers’ out- 
Put looking consistently dark, the ribbons 
must be changed more often than is healthy 
for the pocketbok. The GP-550 solves this 
problem completely by using a replaceable, іп- 
expensive ink cassette which is separately 
replaceable from the actual ribbon. It keeps 
Reader Service No. 268. 


the ribbon loaded with ink at all times. You only. 
replace the ribbon when it truly wears out, not 
When it starts to run low on ink. Just another 
‘example of the superb engineering applied to 
the GP-550. (When you finally do wear out your 
ribbon, replacement cost is only $10.95, Ink. 
cassette replacement cost is only 95,95, both 
postpaid.) 


The Best Part 

When shopping for a quality printer with all 
these features, you could expect to pay around 
3500 or more. Not any тоге! We have done 
our homework. You don't have to worry about 
interfaces ог cables. Everything is Included, 
You need absolutely nothing else to start prin- 
ting — just add paper. 


No Risk Offer 


We give you a 15-day satisfaction guarantee. If 
you are not completely satisfied for any reason 
we will refund the full purchase price. A I-year 
warranty is included with your printer, 


The Bottom Dollar 


GP-550A Standard Parallel (vo Cable}... 
GP-550CD Commodore (Direct Connect) 
GP-S50AT Atari (Direct Connect)... $259.93 
GP-S50AP Apple Пог Пе (Direct Connect)... 8299.95 
GP-550PC ИВМ PC & Compatables (No Cable). $259.95. 
9755011 11.99/44 (Direct Connect). 299.95 
Prices & Availability Subject to Change. CALLI 


$249.95 
259,05. 


“Shipping is $8.00 — UPS within the continen- 


tal USA. If you are in a hurry, UPS Blue (second. 
day air) is $18.00. Canada, Alaska, Mexico are 
$25.00 (air. Other foreign 15 $60.00 (air), 
California residents add 6% tax. These are 
cash prices — VISA and MC add 5% to total. Ме 
ship the next business day on money orders. 
cashiers’ checks, and charge cards. А 14-day 
clearing period is required for checks. 


TO ORDER CALL TOLL FREE 
1-800) 962-5800 USA 
OR 1-(800) 962-3800 CALIF. 
or send payment to: 
APROPOS TECHNOLOGY 
1071-А Avenida Acaso 
Camarillo, CA 93010 


Technical Info: 1-(805) 482-3604 
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Wafer Drive 
A New Technology 


Floppy disk 
performance for 
your Commodore" 
at audio 

cassette prices. 


Entrepo's QUICK DATA 
DRIVE™ brings high speed 
mass storage to the Commo- 
dore’64™ and VIC 20." De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 24K program in 
about 20 seconds instead of 
8 minutes for audio cas- 
settes and 1 minute for the 
Commodore Disk Drive. 


= Suggested retail price 
under $85 

20 times faster than audio 
cassette 

Fully automatic opera- 
tion—needs no rewinding 
Highly reliable 

Can be used with a second 
drive or an audio cassette 
Comes with file manage- 
ment system and utility 
program 

Top selling software avail- 
able on Microwafer™ 
media 


$ епігеро 


ENTREPO, INC. 

1294 Lawrence Station Road 
Sunnyvale, California 94089 
(408) 734-3133 

Telex 176337 


Microwafer™ is a trademark of Entrepo, Inc. 
jorev64"™ and VIC 20" are trademarks 
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of the incessant “beep” for wrong and “ding-dong” for 
right answers, you can play one phrase of a song as the 
question is asked, and then play the next phrase when 
the player gets the right answer. But for a wrong answer, 
the song is left dangling—which will certainly increase 
the player's desire to get the answer right and finish the 
stupid melody! 

Songs are also useful while players are reading instruc- 
tions, checking scores, consulting maps, and so on. 

And there's no rule that says the phrases have to be 
pieces from the same song. You can have a dozen differ- 
ent songs, and play different ones at different times. Just 
set the value of PH to the number of the phrase you want 
to play, and then GOSUB 60- Ше phrase you called for 
will be the one that plays. (If you don't specify a value 
for PH, the next phrase in numerical order will always 
play next.) 

Broken Melody is designed to show how a tune can 
be broken up into pieces, with the different phrases played 
only if and when the player gives certain input. The other 
two programs play continuously until the player presses 
SHIFT. Broken Melody, however, waits for the player to 
press SHIFT before playing anything, and stops to wait 
for another keypress between phrases. Pressing any key 
besides SHIFT, COMMODORE, and CONTROL will 
end the program, 

If you hold down a key during a song, you'll notice 
that the song slows down. This is because the timing for 
the music is done with FOR-NEXT loops, and when you 
press a key it causes an interrupt that uses up processor 
time; this cuts down the number of repetitions of the FOR- 
NEXT loop per second, which makes the notes last long- 
er and slows down the song. 


DECIPHERING THE ROUTINE 

For your ease in understanding how the program works, 
here is a list of the variables and what they are used for: 

MES (phrase, voice) or ME$(phrase): After the con- 
version routine at 9900, this variable contains both the 
pitch and octave code numbers in ASCII form, for use 
as an index into the pitch value tables in PI%( ). 

MVS (phrase, voice) or MV$ (phrase): Used only dur- 
ing the conversion routine at 9900; its information is con- 
tained thereafter in MES. 

МО (phrase): Contains the duration values; the VAL( ) 
function retrieves the values for use as an index into the 
duration table DU %( ). 

ES%: The number of phrases in the song, minus 1. 

EV %: The number of voices in the song, minus 1. 

PI% (code,0) and PI% (code, 1): The pitch table, con- 
sisting of the low byte and high byte, respectively, for 
the frequencies corresponding to the musical scale. The 
code is derived from the MES string using the MIDS( ) 
and ASC( ) functions. The Р1%( ) values are POKEd into 
the frequency registers. 

FR(voice,0) and FR (voice,I): The address of the two 
frequency registers for each voice. Voice 0, for instance, 
is at 54272 and 54273, so those are the values of FR(0,0) 
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and FR(0,I). 

G% (voice): The gate value. POKEing this into the gate 
register causes that voice to begin to sound. The gate 
value also determines the waveform (see line 9070). 

UG (voice): The ungate value. POKEing this into the 
gate register causes the sound of that voice to stop. 

СЕ (удісе): The address of the gate register for each 
voice. 

DU (code): The duration table. Each of the ten possi- 
ble durations (0-9) consist of the number of times the 
empty loop at line 67 should be repeated. The code is 
derived from the MDS string using the MID$() and 
УАП) functions. 

VC: The current voice number. This is used whenever 
the program cycles through the voices; it is the counter 
variable in a FOR VC=0 TO 1 loop. 

PH: The current phrase number. This is automatically 
incremented (increased by 1) each time the routine is ex- 
ecuted, but your program can set this variable indepen- 
dently and take the phrases in any order. 

N: The current note number. This is the counter vari- 
able in the loop FOR N=1 TO LEN(MDS(PH) ) at line 
60; it is used with the MIDS( ) function as the index in- 
to the MES and DUS strings. 

АТФ, DY 96, SN%, КЕФ, WF %: These variables are 
used in setting up the envelopes and waveforms; they are 


Program 
in the 
FAST LANE 
E 


Learn 
Assembly 
Language 
Programming! 


* Commodore's Assembler 
E * Merlin 64 Assembler 
A * Kid Assembler (included FREE іп book!) 

е Learn to use opcodes, operands and everything 

else to program in machine/assembly language. 

М ¢ Watch your program run at warp SPEED! 
Only $14.95 at your favorite book or computer store or order 
direct (include $1.50 for shipping and handling — California 
residents add 6% sales tax). 


Dealer Inquiries Invited 


mY Microcomscribe 


8982 Stimson Ct., San Diego, CA 92129 
(619) 484-3884 
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not used after the music is initialized at 9000, so they 

can be used again in your own program. 

Х%,Ү%, У, AS, I: These variables are used as place- 
holders and counters at various times during the program. 
They are never used after the music is initialized at 9000, 
so they can be used again in your own program. 
Line by line, here's what's happening in the sound routine 
at 60-70. 

60 Begin a loop through every character in the duration 
and melody strings. 

61 Begin a loop through each of the three voices. 

62 Un-gate the sounds left over from the last note. (REM 
this line if you're using the line at 68.) 

63 Begin a loop through the two frequency registers for 
each voice. 

64 POKE the pitch values—PI%( ) — into the frequency 
registers — FR( ). (Remember that a rest (*@") in the 
original tune produces the PI% value of 0 in both 
registers, which makes the voice silent for the dura- 
tion of the note.) 

65 Close the VC and I loops. (The N loop is still open.) 

66 Open a new VC loop, only this time backward, to 
gate the voices open. This causes the new pitches to 
play. Close the loop. 

67 Execute the duration loop. 

68 Open a new VC loop to gate off the sound. This line 

is REMed; remove the REM and cause the line to 

be executed if you want clearly separated, staccato 
sounds. 


ATTENTION COMMODORE 64 OWNERS 
DID YOU BUY THE WRONG PRODUCT? 4 
МЕЦ PAY YOU FOR YOUR MISTAKE! 


PRINTER INTERFACE BLUES 

No graphics, doesn't work with 
your software, Bad aspect ratios, 
mo available buffer, well you 
wouldn't have these problems with 
the Micro-World M W-350, We'll 
give you $59, off the list price of 
$129. for that strange interface 
that's causing you trouble. 


LAST YEARS BACK 
UP SOFTWARE 


Everyone has Back-up software 
that reproduces errors, but will it 
back up non-standard sectors, ге- 
produce density | frequency 
alterations,alter the number of sec- 
tors, copy single sync bits, and 
reformat a single track? We don't 
think so, Send your antique back 
and recieve $25. credit toward the 
“New Revised Clone Machine" at ТТІ 
849.95. М added ап MSD a. 

dual drive Clone Machine also Micro-v V 
available for only $39.95. Upgrade ШІДЕН 
your products to the latest state of Rowe 21 B 

the art today. 


CALL- 201 - 838-9027 
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69 Close the N loop. When the loop runs out, add 1 
to PH so the next time through the loop, the next 
phrase will play—unless the main program has 
changed the value of PH in the meantime. (Note that 
if PH is higher than ES Фо, the total number of phrases, 
it is set back to 0.) 

70 Gate off all the voices. This only executes after the 
phrase is over. Then RETURN from this subroutine 
to the main program. 

Next month, in addition to examining sound envelopes 
on the 64 and emulating them with a machine language 
routine on the VIC, ГЇЇ provide a machine language mu- 
sic routine for each computer. 


DISCOVERING AMERICA 

Even though this isn't a review column, every now and 
then I find à commercial game that is so good I have 
to tell somebody—and you are the somebody I tell. 

Seven Cities of Gold (distributed by Electronic Arts; 
created by Ozark Software, underpriced whatever it costs) 
manages to do what I thought was impossible: it has all 
the story excitement of a text adventure, yet it's entirely 
controlled by a joystick and it all happens graphically 
on the screen. 

You are an explorer, sent forth by the King of Spain 
to reach the Indies. Like Columbus, you have a happy 
accident—you find a New World waiting to be discov- 
ered, explored, exploited, and converted. 

The authors have done a remarkable job of giving us 
the experience of discovery. There is no map, at first— 
but as you sail along the coast or lead a band of men 
into the wilderness, a map is automatically drawn. You 
ordinarily see only the small area surrounding you; press 
the button, and you can see a considerably larger por- 
tion of the map. Only when you're safely home in Spain, 
however, can you see the entire map of all your discov- 
eries. (You can also cheat by pressing D when you're back 
home; even the undiscovered lands are displayed then, 
but you get no more credit for discovering anything.) 

In the New World, you discover major, medium, and 
minor rivers, and such exotica as “A land of high moun- 
tains” or “A land of lush jungles.” Each new discovery 
adds to your reputation as an explorer—it is counted into 
your score. 

But you don't run these expeditions out of love of dis- 
covery alone. They're expensive, and you have to make 
the investor's money back, particularly since the inves- 
tor is the King of Spain. So you have to get gold. The 
simplest way is to discover a gold mine and ransack it— 
but there aren't many signposts saying “This way to the 
free gold.” 

Instead, you have to deal with the natives. And here 
is where Seven Cities of Gold stands head and shoulders 
above any other adventure game Гуе played. Your expe- 
dition brings along a certain amount of trade goods. When 
you discover a city or a village, you can trade for food 
or whatever gold the natives have. However, it isn't just 
a matter of simple barter. The natives don't necessarily 
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В; қсы computers. Theyre сеа 
sweeping changes, Opening up a wealth of 
money-making opportunities for anyone 
willing to put in a little work to cash in on 
the incredible boom. 

The industry's still young. Still unable to 
satisfy needs and demands. There are an 
unbelievable number of personal computer 
owners out there waiting—sometimes almost 
begging Гог more products and services. 

You can take advantage of this situation 

make money in virtually any aspect of 
the personal computer field, But if you want 
to make the really big bucks, you need to of- 
fer something unique. Something extra spe- 
cial: You need to have one great Idea 


Your one great idea. Гуе got it. 
Hello, my name is Larry Carter. Until 

recently 1 was the owner of just one bu: 

ness- Carter Spray Finishing Corpor 


n. 1 


built ту company up through the years but. 
expansion didn't come easy. There were al- 
ways problems, lo f hard work, 


ng hou 

weekends at the offe 

Гһе only good thing was the payoff. I lived 
in a plush apartment, drove a Cadillac Eldo- 
rado, wore expensive clothes. Still, my life 
was wrapped up in my business. I had а gor- 
geous beachhouse but hardly ever went. 
there. Liked to go skeet shooting but rarely 
picked up my hand-crafted gun. 1 found it 
almost impossible to tear myself away from 
work, 

‘Then, a short while ago, I invested in a 
computer to help me run my firm. Those 
50-60 hour weeks were finally getting to me. 

1 became fascinated by my electronic mar- 
vel and went shopping for one for my home. 

That was my introduction to the vast. 
tential of the multi-billion dollar person: 
computer market. My business sense got 
aroused. Here was an opportunity too good 
to miss. I knew I had to grab it. The only 
question was "how?" 

1 was sitting at my new "toy" when the 
light bulb went off in my head. I was sure 
my idea was a winner . . . couldn't wait to 
put it to work. 

Start-up was simple as pie. And the re- 
sults took me by surprise. 

To a guy who always slaved for a buck, 
the money was almost sinful, It came in 50 
fast and easy. And there were no backbreak- 
ing hours. No headaches. 

Only then did 1 realize I had made a 
tastic discovery. I could slow down my pace 
and still increase my income. That did it. Мо 
more nose-to-the-grindstone for Larry Carter. 
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LOADS OF MONEY 


AND PLENTY OF SPARE TIME TO ENJOY IT 


With a personal computer and an hour-and-a-half a 
make more money faster than you ever thought 


hinges on one great idea. 
More money, less work. 

Today I amin the spray finishing busi- 
ness and the personal computer business. 
I'm a greater success than ever. And 1 work 
less than ever, too. All because of the 
change that occurred when I came up with 
my great idea. 


ions. 

Now I'd like to share my idea with you. 
Because the market's too big for just Larry 
Carter. Because I get a kick out of helping 
others. And because I believe more fol 
should work for themselves. For as I well 
know, when you're self-employed, you're 
happier, more independent and enjoy the 
full reward of your own effort. 

With my idea, that reward can be 
substantial. You can make as much as three 
thousand five hundred dollars ~ $3,500 —in 
your first two weeks of operation. With only 
19 hours of work a day. And that's only the 
beginning. 


Make as much as $25,000 a month. 
In just 90 days, once you're established, 
ой can make as much as $25,000 a month. 
fes, 525,000 а month! And you'll still be 
working an hour-and-a-half a day. 

All you need is ambition and the desire to 
succeed. For when you use my idea, you 
don't have to sell door-to-door. You don't 
have to bother friends or relatives. 

You don't need lots of start-up capital. 
‘There's virtually no investment involved. 
You don't need to live near other personal 
computer owners. Don't need to be a 
ammer, My idea is based on appli 

usiness and common sense, not a know- 
ledge of computers. There's nothing com- 
plicated about what I have to show you. 


Easy-to-follow steps. 
In my new book, “Тһе Profit Potential in 


Dear Mr. Carter: 


Please send me “The Profit Potential іп Your Personal Computer. The $25,000-a- 
Month Idea" plus my three FREE gifts. 1 enclose $39.95 plus 531 

520,00 air freight, Canada add $7.00) postage & handling or authorization to charge my 
credit card.* ЇЇ not satisfied, I may return my purchase within 14 days for a full refund. 


; you сап 
le. It all 


Your Personal Computer. The 825,000-a- 
Month Idea,” ГІ tell you how to put my con- 
cept to work. Give you all the simple-to- 
understand instructions, Help you start 
making money the day you put my plan into 
action. 

Now I'm going to hit you with two 
surprises. 

Surprise #1. You don't need to own a per- 
sonal computer to benefit from my bool 
you have access to one at school or work, 
you can follow my guidelines and watch the 
dollars roll in. 

Surprise #2. My book only costs $39.95, a 
remarkably low figure when you make a 
simple comparison – the price of the book 
versus the money you can make by using it. 


Three FREE gifts and a money-back 
Guarantee. 

‘To make your investment even more at- 
tractive, I'm also going to send you three 
FREE gifts: (1) a second thought-provoking 
book crammed with ideas (less profitable 
than mine but just as creative) on how to іп- 
‘crease your income егвопа! compu- 
ter, (2) an audio cassette that, accompanies 
my book, and (3) periodic updates on 
material that relates to my idea. 

T also want you to be pleased with your 

urchase, so if you are not happy with the 

ks and cassettes, return them within 14 
days, Your purchase price will be refunded 
in full. No questions asked. 

Don't wait. Fill out the coupon now. Or for 
fastest possible processing of your order, 
dial this 24-hour-a-day toll-free number: 
800-835-2246 ext. 209. 

Remember, the sooner you order, the 
faster you'll start making big money. So 
mail the coupon now. Turn your personal 
computer into a $25.000-a-Month Pro 
Center. And a means to a fun-filled new 
lifestyle. 


Order anytime by calling toll-free 


800-835-2246 ext. 209 


Mastercard and Visa only. 


00 (foreign orders add 


Address 


City 


State 


Zip 


Check or money order enclosed 
O Charge to O MasterCard О Visa 


*New York residents please add local sales tax. 


| 
| 
| 
| Мате 
| 
| 
| 


Expiration date 


Card number 
Le Ё 
nnie ааа ааа |р 
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like having strangers—particularly armed and dangerous 
ones—mucking about in their towns 

When you enter a village, your expedition is repre- 
sented by a single figure, however many men you have 
with you. If you bump into one of the many figures rep- 
resenting natives, that native is killed. And since they 
come jostling around you pretty quickly, you have to 
scramble to keep from bumping them. Bump one or two, 
and maybe you can still trade with them—kill a third, 
and you've got a battle on your hands. 

Fortunately, you have a few things in your favor. The 
first time you enter a village, you can choose to amaze 
the natives; this makes them stand back and let you 
through for a second or two. Then, when you get to the 
center of the village, where the chief is waiting for you, 
you can give him gifts. (You can also give gifts to the 


common folk, but it gets you little more than the time 
of day.) When you've given the chief enough gifts, he'll 
trade with you 

The chief is the key to winning battles, too. I hate to 
tell you the defect of character that led me to discover 
this, but if you begin a battle by treacherously killing 


the chief before attacking anyone else, you win a lot more 
easily, with less loss of life on both sides. This means 
that whether you want to trade or invade, you still are 
better off doing as Cortez and Pizarro did—make your 
way to the head man before you show your guns. 

After you trade with or vanquish a village, many of 
the natives become bearers, allowing you to carry far 
more gold and food than your men could carry alone. 
These bearers usually stay with you until you board your 
ship and sail away. 

Word spreads among the natives, too. If you've made 
friends with the natives, they'll tell you about other towns 
and you'll see the villages without having to stumble 
across them—a great time-saver. But if you've been wan- 
tonly Killing, the next village will be warned and will 
attack you immediately 

Believe те — killing everything that moves is а sure way 
to achieve disaster. 

When you conquer a village, you can usually estab- 
lish a mission there; but the natives will be hostile, and 
will often overthrow the garrison you left behind. How- 
ever, if you have been unusually kind in your dealings 
with a village, the chief will voluntarily ask you to estab- 
lish a mission 

In other words, the way you behave, the moral char- 
acter you establish in the game, affects the way the other 
characters in the game respond to you. If you're blood- 
thirsty or careless of your men, either the natives or star- 
vation will finish you off: if you're careful and wise— 
and sometimes ruthless—you'll achieve high rank when 
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you return to Spain. The best I've done at journeyman 
level is Viceroy— it's hard to imagine the King giving you 
any higher rank! But there's an advanced game that I 
haven't even tried to play 

An added benefit is the world-building program. If, 
like me, you are familiar enough with the history of the 
European conquest of America that you know all the plac- 
es 10 go to conquei at empires, then you can use the 
world-building option to create new continents. The рго- 
gram was well-designed: the invented continents are real- 
istically laid out. And this time, you really are explor- 
ing a world that no one has ever seen before. 

In other words, this is that rare thing: a perfect game, 
which is worth the price you pay for it. 

The graphics are beautiful, I love the world-building, 
the simplicity of acting out a very complex story is amaz- 
ing—but what I like best is the fact that the game re- 
sponds to you on a moral level 

This is way beyond anything you've played in the ar- 
cades. Most shoot'em-up games have a kill-or-be-killed 
premise. When I first started playing text adventures, 1 
tried talking to the dwarfs and other creatures in the un- 
derground caverns, but they were only interested in kill 
ing. A few text adventures 7ле Lords of Karma, the 
many Infocom games—have more variety, in that not ev- 
erybody you meet wants you dead, but I have seen none 
that do what Гуе been asking for since I first wrote to 
the guys at Infocom back in 1980: I want the game to 
change to respond to the kind of person my player-figure 
reveals himself to be. 

I imagined then a text adventure in which, if a player 
kills everything that moves, within a few turns all the 
ures in the cave get together and wipe him out. That's 
civilization, isn't it? Ganging up on the killers? 

More important, though, I wanted the adventure worlds 
to be peopled with characters who respond to you indi- 
vidually. If you show yourself to be greedy, the thieving 
types would gravitate to you; if you're considerate, peo- 
ple who need help will call on you and then help you 
in return; if you're generous, you'll be trusted—but you'll 
also be taken advantage of; if you're cowardly, you'll be 
bullied. Certain characters will become your friends and 
fellow travelers; others will be your enemies; still others 
will be indifferent 

Seven Cities of Gold is the first program I've seen that 
takes an important step in this direction. It gives game- 
playing, for the first time, the moral dimension that has 
previously been reserved to the storytelling arts like film 
and theatre and fiction 

Thope this game does so well that other game design- 
ers learn from it. Г 

SEE PROGRAM LISTINGS ON PAGE 
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Ahoy?'s Bulletin Board System 


If your computer is equipped with a modem, you can call Ahoy/s Bulletin Board System (718-383-8909) any hour of the day, any day 


of the week to exchange el 
+ Editorial calendar for upcoming issues 


* Excerpts from future editions of Scuttlebutt 


* Corrections to p 
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grams and articles 


* Detailed descriptions of back issues 


ictronic mail with other Commodore users or download files like the following 


* Program disk and subscription information 
* Classified advertising 
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HOW MODEMS WORK 


he subject of computer telecommunications 

completely baffles most novices. Anyone who 

has ever been a teenager knows how people 

use a telephone, but the way in which a com- 
puter communicates over the phone lines is much less 
obvious. After all, they don't have any arms, lips, ears, 
or dimes, and even if they did, what's a computer going 
to talk about? Complain about his disk drive, or gossip 
about that cute little VIC down the street? To make mat- 
ters worse, telecomputing carries with it an imposing load 
of jargon. Just when you were beginning to understand. 
the difference between ROM and RAM (or had given 
up trying), along come terms like modem, terminal, du- 
plex mode, carrier, answer and originate modes, and par- 
ity bits. As Mr. Bill would say, “Oh Noooooo00^ 

Not to worry. As surely as a telecommunications sys- 
tem transforms electrical signals into information, this 
installment of Ship to Shore will cut through the mum- 
bo-jumbo surrounding computer communications. We'll 
take a look at the equipment used in telecomputing, how 
it operates, and some of the terms associated with that 
operation. 

Anyone who has used a computer knows that they com- 
municate through input or output devices. We use input 
devices such as the keyboard, joystick, light pen, or game 
paddles when we want to send information to the com- 
puter. We use output devices such as the display screen 
ог printer to take information from the computer. Dur- 
ing telecommunications, the computer receives informa- 
tion from another computer just as it does from the key- 
board, and it sends out information to another compu- 
ter the same way it sends it out to the display screen. 
The only difference is that unlike most input/output de- 
vices, the other computer is not physically present in the 
same room as yours. Usually, you hook up your compu- 
ter to external devices like a printer or disk drive by at- 
taching the two with a cable. Since a telecommunications 
link is established over phone lines, some extra equip- 
ment is needed. 

Figure 1 shows the basic elements of a telecommuni- 
cations link. At either end of the link is a computer (la- 
belled “С”) connected to a phone line by a device called 
а modem (labelled “m”, and pronounced *moedenr). Usu- 
ally, a computer communicates to outside devices by 
means of electrical signals running through wires. But 
the phone lines which зегуе as the most common medi- 
um for communicating between two points are designed 
to carry sounds, not the tiny electrical impulses that a 


computer generates, That's where the modem comes in. 
It takes the electrical signals from your computer and 
turns them into sounds that can be sent over the phone 
lines (or MOdulates them), and takes the sounds that were 
sent over the phone lines from another computer/modem 
combination and turns them back into electrical signals 
(or DEModulates them). The net effect is the same as 
if the two computers were connected by wires, and ex- 
changed electrical signals directly. The only difference 
is that sometimes if there is static on the phone line, the 
information may be garbled during the transmission. 

Most Commodore users have modems that were made 
specifically for Commodore computers and plug right 
into the user port. But it is also possible to use gener- 
al-purpose modems with the help of what is known as 
an RS-232 interface (the box connected to the remote. 
computer in Figure 1, labelled “г”). The name RS-232 
may sound mysterious, but actually, it stands for Rec- 
ommended Standard 232. It just so happens that Stan- 
dard number 232 of the Electrical Industry Association 
describes a standard interface to be used with telecom- 
munications devices. Since computers use a lot of dif- 
ferent kinds of signals internally, the electronics indus- 
try decided to define standard plug and socket connec- 
tions, as well as standard electrical signal levels, so that 
the same telecommunications equipment will work with 
all different kinds of computer equipment. By buying 
an RS-232 interface (for about $40) that plugs into the 
User Port, you can make your Commodore computer 
send out electrical signals that are compatible with all 
kinds of non-Commodore modems, and other RS-232 
devices as well (such as printers and speech synthesizers). 

So far, we've shown what it takes to physically con- 
nect your computer (sometimes called a terminal, be- 
cause it sits at the end of the line) and the remote com- 
puter (sometimes called the host, because it allows 
“guests” like yourself to operate its programs by remote 
control). But all the hardware hookup does is allow the 
two computers to exchange electrical signals. Before we 
can use this system to actually transfer information, we 
have to get the two computers to agree on what those 
signals mean. This is accomplished by the terminal soft- 
ware that controls the exchange. 

Since computers only understand numbers, and not let- 
ters, the first task is to convert the text using a code that 
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CHECK & STATIONERY 


VINYL CARRIERS 


For Adjustable Tractor-Type Printers 
The CHF Computer Check Carrier ' " 
Allows You to Use Regular Bank Checks 
for Fast Computer Processing . . . 


ELIMINATES NEED FOR COSTLY SPECIAL COMPUTER CHECKS . . . Designed 
for adjustable, tractor-type printers, this slotted, translucent, viny! sheeting 
accessory uses inexpensive personal or company checks as supplied by your 
bank. Checks with carbons are easily accommodated, too! 


PRODUCES PROFESSIONAL-LOOKING CHECKS — TWICE AS FAST! And it 
helps you to enjoy the full capability of your system. Included is a BASIC 
program to format checks for your system. It may also be used as а subroutine 
in an existing BASIC program. Check printing and entry into check register аге 
simultaneous. 


CARRIERS ARE ALSO AVAILABLE FOR OTHER TYPES OF STATIONERY, TOO! 
Select other carriers listed below lor your stationery needs. CHF makes 
carriers for most other forms of stationery. Check with your local computer 
Store or fill in the order blank below and return for fast shipment of your order, 


NEW "E" MODELS DOUBLE THE LENGTH OF OUR STANDARD CARRIERS. 
The new 5100Е model gives you twice the carrying capacity, sixteen checks 
versus the standard eight. The "E" model is also available for all other Carriers 
except the 5824 — double the holding capacity stated below for the "E" model. 
of any Carrier. Suggested retail price for all "E" models is $19.95, 


SPECIALIZING IN CHECK AND STATIONERY CARRIERS FOR COMPUTER USE 
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the computer can understand. The most common code 
is called ASCII (American Standard Code for Informa- 
tion Interchange). In ASCII, the number 65 stands for 
the letter “А”, 66 stands for the letter “В”, 97 stands for 
“a, etc. Internally, your Commodore computer uses a var- 
iant of this code called PETASCII, in which 65 stands 
for “a”, while 97 stands for “А, but your terminal pro- 
gram will make the conversions so that you communi- 
cate in the same standard ASCII everyone else uses. 

Let’s follow the process of how your computer con- 
verts text to numbers, step by step. First, the program 
starts with text characters that you type in. For our ex- 
ample, let's use the letters 


MISC 
The ASCII codes for these letters are: 
86 73 67 


These numbers are in the form of decimals, the base 
ten numbering system that humans use. But computers 
use base two, or binary numbers. They find these num- 
bers easier to work with, because in base two, all num- 
bers are expressed using only two digits, the “0” and the 
“Г. Of course, it takes а lot more digits to write a num- 
ber in binary. In fact, in order to write any number from 
01 127 (as you must in order to use the 128 characters 
of the ASCII code), you need at least seven binary dig- 
its. The seven-digit binary equivalent of the ASCII num- 
bers above is 


101010 1001001 100001 


Ав you will see later, not only are these kinds of num- 
bers easy for the computer to work with, but they are 
also easy to convert into sounds. 

Even though we have changed our text characters a 
lot so far, we're not through yet. For one thing, some 
telecommunications programs use an extra binary digit 
(or bit) for what is called parity. In the early days of tele- 
communications, noisy telephone lines were an obstacle 
to information exchange, because the noise on the line 
could be misinterpreted as a false signal. Some way оГ 
determining whether the data received was exactly the 
same as the data being sent was needed. By adding one 
more digit to each character, a crude form of error de- 
tection called "character parity" was implemented. The 
way it works is simple: if you choose EVEN parity, the 
extra digit is used to insure that the number of "I" digits 
is even, and if you choose ODD parity, the extra digit 
is used to insure that the number of “I” digits remains 
ODD. For example, using even parity, our binary repre- 
sentation of the letters VIC: 


101010 1001001 1000011 
becomes 
0101010 11001001 11000011 


The receiving computer would use this parity bit as 
a safeguard against bad transmission. If the bits didn't 
add up, the computer would know that the transmission 


was faulty, and could ask for the character to be sent 
again. This kind of simple error checking really belongs 
more to the era of mechanical teleprinters than today's 
modern computers. Nowadays, very few systems use par- 
ity. When you select NO PARITY with your terminal 
software, the eighth bit is always changed to zero (un- 
less you want to send special, non-ASCII characters), so 
that our binary code for VIC becomes 


0101010 01001001 01000011 


We're almost ready to ship ош our data, but we still 
have one last manipulation to perform. We've got to add 
“framing” bits that show where each character begins and 
ends. In order to understand why, let's go over the way 
in which the modem translates electrical signals to sounds. 

Modems use two sets of frequencies to send and re- 
ceive data. These are technically known as “answer” and 
“originate” frequencies, but let's just call them “high” and 
“low” tones. One modem will send information using the 
high voice, and will listen for a reply which the other 
computer sends using the low voice. The other will use 
the opposite pair of tones. Two sets of tones are needed 
so that the modem can differentiate between tones which 
it is sending, and those received over the phone lines. 


(с) 


кше 1: Telecommunications Link 
M: modem Т: telephone link 


С: computer. R: RS-232 interface 


Each voice uses notes of two different frequencies, 
called MARK and SPACE. As you might guess from their 
names, MARK represents the “I” character, while SPACE 
represents the “0” character. By convention, the normal 
"quiet" state of a phone line when no data is being trans- 
mitted is a continuous MARK tone, which can be con- 
sidered a constant stream of ones (this continuous tone 
is also called a “carrier,” because the data string of ones 
and zeroes is superimposed upon it). To isolate our text 
character, which has now been converted to a stream of 
ones and zeroes, we “frame” it by putting a SPACE or 
zero character on either side of it. The zero character 
that comes before our text is called a start bit, while the 
‘one that comes at the end is known as a stop bit. There- 
fore, the binary numbers which stand for the letters VIC: 


01010110 01001001 0100001 


become 


001010100 0010010010 001000010 
Finally, we're ready to send this text. Here we have 
AHOY! 3l 


a “quiet” communications line (all MARK tones, or ones. 
remember) just waiting for some data: 


MMMMMMMMMMMMMMMMMMMMMMM 
MMM 


When we type the letters “VIC”, the ASCII codes for 
which are 


86 73 67 
our computer recognizes what we typed as 
0101010 01001001 01000011 


and our telecommunication software adds in the start and 
stop bits to change it to 


001010100 0010010010 001000010 


This data is sent to the modem, which changes the ze- 
roes and ones into the high and low sounds known as 
MARK and SPACE tones: 


SSMSMSMMSS SSMSSMSSMS SSMSSSSMMS 


Тһе modem superimposes these tones over the continu- 
ous MARK tone of the “quiet” line: 


MMMSSMSMSMMSSMMMMSSMSSMSSMSMMM 
MMSSMSSSSMMSMMM 


The receiving modem changes it back into a string of 
ones and zeroes again: 
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The telecommunications software on the computer at 
the receiving end must watch this stream of characters. 
Because of the agreed upon convention, it knows that 
the first zero it sees means “Hey! The next eight bits are 
а character, and ninth bit had better be a zero that marks 
the end of the character. After you get that last zero, you'll 
see some ones for a while, until you get another zero 
that starts another character.” In this way, the extraneous 
ones added in by the continuous drone of the "carrier" 
tone are stripped away, and the computer at the other end 
receives the characters 


0010101100 0010010010 001000010 
which it displays as the letters 
VIC 


This may seem like a lot of work for just three letters! 
Fortunately, your computer and modem can handle the 
whole operation at a high rate of speed. What speed, 
you ask? The most common rate is 300 bits per second. 
As you have seen above, each character requires at least 
10 bits, so 300 bps equals a little under 30 characters 
per second. Sometimes you will hear operation at 300 
bps referred to as 300 baud. This unit of measurement 
is named after Georges Baudot, the inventor of an early 
teleprinter code. But it refers only to how many times 
per second the tones change frequency, not how many 
bits are sent. At 300 bps, the tones change frequency at 
a rate of 300 baud, so the terms may correctly be used 
interchangeably to describe the speed of transmission. 
Modems that transfer data at 1200 bps, however, only 
change the frequency of the tones at a rate of 600 baud, 
so to term them “1200 baud” modems is a mistake. 

The only term left to explain is “echoplex” or “duplex” 
mode. This has to do more with how information is dis- 
played on your screen than how it is transmitted, Most 
communications links are in what is called “full duplex” 
mode. This means that the remote computer actually 
echoes back every character that you send it, and the text 
that you type in at your keyboard does not appear on 
your screen until it is sent back from the computer on 
the other end. This makes it easy to spot any trouble, 
because if the other computer isnt receiving your text, 
you won't see it on your screen as you type! The other 
possible mode is called “half duplex.” In this mode, all 
of the characters that you type are displayed directly on 
your screen. This is necessary only if the remote system 
isn't echoing your characters back. If it is, then you will 
see each character on your screen twice, once from the 
“local echo” and once from the “remote echo” lliikkee 
tthhiiss. 

That about covers our painless introduction to telecom- 
puting. If you have any questions, please send them along, 
and well try to cover them in future columns. 

Sheldon Leemon 

CompuServe ID 72705.1355 
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A Graphics Generator for the C-64 


-64 provides a variety of graphics, but 
roducing them on the screen is no easy mat- 
- ter, Take for instance the procedure of plac- 
ing a red, reversed heart symbol in the mid- 
of the screen. First we use the two cursor keys to 
get to the location. Then we press CTRL and RVS, fol- 
lowed by CTRL and RED. Next we have to find the char- 
acter on our keyboard...there it is. Now we press COM 
and S. There. Eight keys later we have our symbol on 
the screen. That's a lot of work for one character. 
Drawing a complex picture in this manner is not some- 
thing you would do for fun, but sometimes we'll write 
fat demands it. Even as I wrote Screen Magic, 


'en Magic takes your hands away from the keyboard 
places them on that device we all love to handle: 
joystick. Using only the joystick, you can choose the 
haracter that you want and print it on the screen. These 
include graphic characters, letters, numbers, and other 
symbols as well. On the screen, along with the charac- 
ter table, there is a palette of colors. Most of the screen, 
however, is your canvas. Although you can draw effective- 
ly without the keyboard, there are a number of special 
keys you'll want to use. ГЇЇ get to these in a minute; first 
let's type in the program. 

It's in machine language — and it's long Бш Flankspeed 
(see page 86) should eliminate all the typos. Once you've 
At in, be sure to save it before running. Then plug 
ick into port 2. Type NEW and hit RETURN. 
SYS 49152 and press RETURN. 
screen will display a table of symbols and colors— 
е the keyboard, these are neatly grouped together 
quick selection. To start, just push your joystick. First 
u'll have to pick a character to print. Center your cur- 
sor, which is an open box, over the symbol you want 
and press the fire button; the character will be tucked 
away in a tiny buffer. Then move to the palette and se- 
lect a color in the same way. Now go to the right side 
of the screen and hit the joystick button; your character 
will be printed. You can, of course, hold down the but- 
ton and draw a string of characters as you move across 
the screen. Keep in mind that your cursor picks up let- 
ters and colors when it's in the symbol table, but outside 
of the table, it prints them. 

е about the screen you may find the cur- 
slow or too fast, To change it, press V and 
asked to enter a number. The fastest is 0 and 
it is 9. You can also use the cursor keys to man- 
around, and the space bar to pick up ог drop а 
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By Bob Spirko 


character. Use DEL (or print a space) to erase a charg 
ter, and CLR to clean your canvas. Some characters, si 
as letters and numbers, have no reverse case displaye 
in the symbol table, but you can toggle reverse by press- 
ing 9 (press RVS without holding the CTRL key down) 
When you've finished drawing, press X to exit to BASIC. 
Now for those special keys I mentioned. After draw- 
ing your picture, you may find that it is not centered on 
the screen. If this is the case, you can scroll your canvas 
to the right by pressing fl. Similarly, use f2, f3, and f4 
to scroll left, down, and up. To change the background 
color, press 15. No doubt you'll want to save some of your 
creations; if so, press f8 and you'll be asked for a fil, 
name. Once entered it'll be stored (disk only) for la 
retrieval. To LOAD it, press 47. 

Often you might want to draw a symmetrical figui 
such as a border. Tap the back arrow and you'll be i 
the symmetry mode. Whatever you draw on the left side 
of your canvas will be duplicated on the right. If your 
cursor is on the right side of the screen, no duplication 
takes place. Press the back arrow again to turn off the 
symmetry mode. 

The keys I like most are A and SHIFT-A. Let's say 
you want to draw a line with hearts and diamonds so that 
the first character is a heart, the second a diamond, the 
third a heart, and so on, alternating down the line. If 
you already have a heart in your buffer, toggle key A. 
The heart will be transposed to another buffer. Now move 
your cursor over the diamond and press the fire button. 
With both characters stashed away, you can now pri 
alternating symbols. Each time one character is printe 
the buffers are switched so that the next character to 
printed is different. To turn off alternating characters, 


hit A again. Toggle SHIFT-A to alternate colors. 
Here's a rundown on the commands: 

fl : scroll right в save to disk 

f2 : scroll left - symmetry mode 

f3 : scroll down А alternate characters 

f4 : scroll up SHIFT A : alternate colors 

15: change bkgrd. color у cursor velocity 

17 : load from disk X exit to BASIC 


When loading Screen Magic back in, you'll have to 
do so with a “I 


LOAD"SCREEN MAGIC",8,1 


as itis all ML. When the cursor returns to the screen, 
52, then RETURN. This will activate tl 
SEE PROGRAM LISTING ON PAGE 
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ARCADE ACTION 


for the C-64 
By Bob Blackmer 


uck Shoot is a colorful arcade: 
gallery, inspired by the old 
You simply aim your gun si 
on the screen and fi 
Shooting down ten ducks will put you in a timed target 
round, consisting of a series of targets that appear on 
the screen for brief periods. The higher your score, the 
faster the required reaction time. If four ducks in a row 
get by, the game ends and your score and the high score 
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are displayed 
The duck's speed will increase as you progress through 
the rounds 
Ducks are worth 25 points each, and the targets are 
worth 50 points each. 
There are eight target rounds, after which the game 
becomes a flurry of ducks moving faster and faster until 
the game ends. 
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The Ultimate Resolution 


Exoloring Bit Map Gra 


hics on the Commodore 64 


By Dale Rupert 


xploring any new feature of the Commodore 
64 is always an adventure. Originally 1 had 
planned to deal with the random number gen- 
erator this month. There are several interesting 
computer simulations involving random numbers. The 
Buffon Needle problem and the "infinite number of mon- 
Keys at the keyboard" problem can both be simulated by 
using the RND function in BASIC. Before developing 
those problems, I wanted to do some elementary inves- 


tigations into the random number generator itself. That's 
where this diversion into bit map graphics began. 

It is well known from the advertisements that the Com- 
modore 64 has a graphics resolution of 320 dots (hori- 
zontal) by 200 dots (vertical). What isn't obvious from 
the ads is that accessing those 64,000 dots is much eas- 
ier said than done. All I wanted to do was choose a ran- 
dom value for X from 1 to 320 and a random value for 
Y from 1 to 200 and then plot each XY pair. Truly ran- 
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dom numbers should produce a truly random looking 
pattern of dots on the screen. 

Those of you who use one of the enhanced versions 
of BASIC are undoubtedly able to type PLOT (X. Y), ог 
something similar, and thereby put a dot on the screen 
effortlessly. This article is for those of you who do not 
use a fancy BASIC. Or those of you who enjoy a compli- 
cated puzzle and want to find out more about the amaz- 
ing silicon brains we are using. 

This month we will investigate the Standard High-Res- 
olution Bit Map Mode of displaying graphics on the Com- 
modore 64. We will see that BASIC is barely able to op- 
erate in this mode. BASIC is very slow and cumbersome 
at manipulating 64,000 dots in most applications. For that 
reason, next month we will create some assembly lan- 
guage routines to help speed things up. First let's review 
some of the basic screen concepts we've previously dis- 
cussed. 


PRELIMINARIES 

In the normal character mode of operation, there are 
twenty-five rows of characters with forty characters in 
each row. That gives a total of one thousand individual 
characters (25 times 40) which may be displayed at one 
time. There are 256 different characters to choose from 
for each of those 1000 locations. Furthermore, each and 
every character may be any one of sixteen colors. 

The Video Matrix is the technical name for the one 
thousand consecutive bytes of memory whose contents 
are normally displayed on the screen. The Video Ma- 
trix begins at memory address 1024 and goes to address 
2023 when we turn on the computer. Those addresses 
may be changed by programming, but we will assume 
that they have not been. 

Each byte of the Video Matrix contains an eight-bit 
value ranging from 0 to 255. In normal character mode, 
the VIC-II Video Interface Chip translates each byte into 
a pattern of pixels (picture elements) which appear on 
the screen in some recognizable form. Appendix E in 
the C-64 Users Guide and Appendix B in the Program- 
mers Reference Guide (PRG) show 128 of the 256 possi- 
ble forms. The other 128 characters are reverse images 
of those shown. There are indeed two sets of 256 char- 
acters each, but only one of those sets may be selected 
at a time. In fact it is possible to create still other sets 
of characters to replace these, but that is a topic for an- 
other article. 

If we put the value 20 into address 1024 (POKE 
1024,20), the result is a letter “Т” in the upper left cor- 
ner of the screen. As we have discussed before, it may 
not be visible until we put a contrasting color value into 
the corresponding color memory location (POKE 
55296,1). The VIC-II uses the 20 as an index into the 
Character Base. The Character Base provides a 64 bit 
dot pattern which represents the character “Т”. The nor- 
mal Character Base originates in ROM. 

Each character consists of a box which is eight screen 
dots wide by eight scan lines high. Within that box of 
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64 dots or pixels, some of the dots are one color and 
the rest are another color. The dots that contrast with 
the background color are arranged in the shape of a “Т”. 

To get an idea of the size of the pixels we are dealing 
with, put character 102 onto the screen (POKE 1024,102 
: POKE 55296,1). You might be able to count the individ- 
ual pixels, depending upon your monitor and your eyes. 
Each small square in the pattern contains four pixels. 
Keep in mind that those 64 pixels are generated as a re- 
sult of the one-byte quantity stored in location 1024. 

In graphics bit map mode, the VIC-II treats each one- 
byte value in locations 1024 through 2023 quite differ- 
ently. Instead of representing predefined character sym- 
bols, each one-byte value is interpreted as two four-bit 
color codes. In the bit map memory, the “0” bits will 
be displayed as one color and the “I” bits will be shown 
as the other color. But just a moment. What is this bit 
map memory? 


THE BIT MAP 

We have already calculated that a 320 by 200 resolu- 
tion display needs 64,000 bits or 8000 bytes of storage. 
The C-64 hardware is arranged so that the 8000 byte bit 
map memory may begin at either location 0 or location 
8192. Since BASIC and the operating system are very 
dependent on the page zero memory, we wouldn't get very 
far by POKEing random data there. Consequently we 
must use the 8000 bytes beginning at address 8192 for 
our bit map memory. 

Having defined a suitable block of memory, we can 
create an image on the screen by turning some of the 
64,000 bits on and turning others off. The first eight bytes 
of this memory contain 64 bits which correspond to the 
small, character-sized region in the upper left hand cor- 
ner of the screen. The bits that are 18 will be displayed 
as one color, and those that аге 05 will be displayed as 
another color. The actual colors depend upon the value 
stored in location 1024. The next block of 64 pixels will 
also be displayed in two colors. Those colors are deter- 
mined by the value stored in location 1025. And so forth. 

There is a very definite similarity between the char- 
acter mode and the bit map graphics mode. Each mode 
has a data memory and a separate color memory. For 
character mode, data memory consists of 1000 bytes be- 
ginning at location 1024. Its color memory consists of 
1000 nybbles beginning at location 55296. Each of the 
1000 characters may have any one of sixteen colors. For 
bit map mode, data memory consists of 8000 bytes begin- 
ning at location 8192. The corresponding color memory 
begins at location 1024. Each of the 1000 bytes starting 
at 1024 contain two color nybbles. Each block of eight 
bytes in data memory can be displayed in any two of six- 
teen possible colors. As we discuss the details, the con- 
fusion should subside. 


THE DETAILS 
Pick two colors, any two colors, as long as they are 
from the group of sixteen listed in Appendix G of the 
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Users Manual or Appendix D of the PRG. A number 
20 in location 1024 while in bit map mode is interpreted 
as the colors white and purple. The easiest way to see 
this is to convert it to hexadecimal. In hexadecimal, 20 
becomes $14 where the “$” signifies that this is а hexa- 
decimal value. 

The *4" is in the units place, and “4” corresponds to 
purple. The “I” representing white is in the 16's place. 
The decimal value of $14 is 1*6 + 4 or 20. That is how 
the value 20 in location 1024 represents the colors white 
and purple. 

If you want the 64 pixels in the upper left corner of 
the screen to be light blue or yellow, you must poke 231 
into address 1024. Light blue has a value of 14, and yel- 
low has a value of 7 (14%6 + 7 = 231). The color value 
in the most significant nybble is treated as the foreground 
color, and the other is the background color. Poking 126 
into 1024 would reverse the colors since 7*16 + М = 126. 

A simple example should clarify the situation. Assume 
we are working in bit map mode, and location 1024 con- 
tains the value 20 (white/purple). Put values 255,0,255, 
0,255,0,255,0 into the first eight locations starting at ad- 
dress 8192. Remember that these eight bytes represent 
the pixel pattern displayed in the upper left corner of the 
screen, That eight by eight square will look like this: 


11111111 
00000000 
11111111 
00000000 
11111111 
00000000 
11111111 
00000000 


The number 255 contains all I's, and of course 0 is 
stored as all 05. The computer does not display I's and 
05 on the screen. Instead all the I's are displayed as white 
pixels, and all the 0% are shown as purple pixels. Con- 
sequently there will be a white and purple striped square 
in the upper left corner of the screen. 

If we replace the 255 in location 8192 with 254, the 
pixel in the upper right corner of the box above will 
change from white to purple. If we put the value 1 into 
memory location 8199, the lower right corner of the box 
will change from purple to white. If we change the val- 
ue in location 1024 from 20 to 231, the box will change 
from white and purple stripes to light blue and yellow 
stripes as we calculated earlier. 

It should now be clearer as to where the term “bit map 
graphics” originates. The value of each bit corresponds 
to a pixel on the screen. The screen image is essentially 
a map of the bits in memory. 

The details of the organization of the 8000 byte bit map 
memory are shown on page 125 of the PRG. Unfortun- 
ately the calculations needed to determine the specific 
byte and bit to turn on any given pixel on the screen are 
somewhat involved. 
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Using the terminology in the PRG, the formulas for 

locating the pixel at location X.Y are as follows: 
BYTE = BASE + 320*ROW + 8*CHAR + LINE 
BIT = 7 - (X AND Y) 


where 
BASE = 8192 (the starting address of the bit map) 
ROW = INT(Y/8) 


CHAR = INT(X/8) 

LINE = (Y AND 7) 

The calculated BIT is set to 1 or reset to 0 in address 
BYTE in order to select the foreground color or the back- 
ground color for the pixel at screen location X,Y. X rang- 
es from 0 to 319 and Y ranges from 0 to 199 with the 
origin 00 in the upper left corner of the screen. 

Unfortunately these formulas represent a fair amount 
of work for BASIC to locate just one pixel. You enter 
the bit map mode in BASIC only if you have plenty of 
time. Let's look at the details of initiating bit map mode 
and working in it. 


USING THE BIT MAP 

The steps required for using bit map mode are as fol- 
lows: 

1. Set the bit map starting address to 8192. 

2. Enter bit map mode. 

3. Clear the bit map memory. 

4. Put desired color(s) into the color memory. 

5. Set (or reset) desired bits in bit map memory. 

The sequence for these steps depends upon the appli- 
cation. The program on page 88 shows how these steps 
are implemented. 

We will use the "set bit" and “reset bit" functions which 
we have discussed in previous columns. They are de- 
fined in lines 10 and 20. Line 420 shows how these func- 
tions are used. The argument of the function must be 
a number from 0 to 7 corresponding to the chosen bit. 
The memory location must be stored in the variable 
named MM. The statement POKE MM, FNSB(5) will 
set bit 5 of address MM to 1. If BIT has a value of 3 
and MM equals 9000, then POKE MM,FNRB(BIT) will 
reset bit 3 of location 9000 to 0. 

То place the bit map memory at address 8192, we must 
set bit 3 of VIC-II register 24. (*Set" will mean to give 
a value of one and “reset” will mean to give a value of 
zero in the following discussion.) The VIC-II registers 
begin at location 53248. Register 24 is at address 53248 
+ 24. The variable VV in line 30 stores the starting 
address of the УІС-П registers. Line 40 sets bit 3 of regis- 
ter 24 and defines the starting location of bit map mem- 
ory. 

To enter bit map mode, line 50 sets bit 5 of VIC-II 
register 17. If you stop the program at this point, you 
see a jumble of dots, especially if the screen had char- 
acters on it before you typed RUN. The eight by eight 
demarcations should be visible as the colors vary from 
box to box. The colors are determined by the characters 
which were on the screen when you ran this program. 
The dots within the boxes show the data that happened 
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to be in memory beginning at location 8192 when you 
ran the program. 

Lines 70 and 80 POKE 0 into the 8000 bit map loca- 
tions. This seems to take forever. (A good place for a 
machine language routine!) The whole screen will now 
display the background color(s). 

Line 90 sets the foreground color СІ to white (1) and 
the background color CO to black (0). Not very imagin- 
ative, but feel free to pick your own colors. The 1000 
bytes of color memory are filled with this one color com- 
bination in line 100. Remember, you may put various col- 
or combinations anywhere within the color memory. 

The main program in lines 200 through 220 performs 
the operation described at the start of this article. Ran- 
dom values for X and Y are chosen, and the correspond- 
ing XY pixel is turned on (set to the foreground color). 
The main program calls the subroutine at lines 400 
through 430, which performs the calculations for an X- 
Y pair and lights the proper pixel. Notice that some of 
the formulas mentioned earlier have been combined into 
one formula in line 410 to help speed things up. 

A pause in line 250 allows you to see the screen for 
а while after the one thousandth random pixel has been 
lit. Lines 310 and 330 return things to normal character 
mode. All the characters which were on the screen аге 
now P's. Do you know why? Look at line 100 for a clue. 
List the program to see that everything is in fact normal. 
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Here are a few tips before you take off on your own 
to work with this graphics mode. Remember that RUN- 
STOP/RESTORE will return the screen to normal mode. 
I found it useful to memorize the line number 300. If 
I stopped the program before it finished, I would blind- 
ly type GOTO300 which allowed the program to return 
the screen to normal. That way my screen colors weren't 
reset as they would be with RUN-STOP/RESTORE. 

It is very frustrating to sit and wait for 8000 bytes of 
memory to be cleared every time the program is run. 
You might put in a statement to bypass lines 70 and 80 
after memory has been cleared once. You will end up 
with multiple images on the screen but that may not be 
objectionable for debugging. 

Put your own statements between lines 100 and 300. 
Just define values for X and Y then GOSUB 400. This 
program does not check the validity of any parameters, 
so be careful with your values of X and Y, or add check- 
ing routines (and slow the program down even more). 

Horizontal and vertical lines are easily generated. A 
sequence such as this creates a small rectangle: 


200 
210 
220 
230 
240 
250 
260 
270 


FOR Х-100 TO 130 
Ү-20 : GOSUB 400 
Ү-40 : GOSUB 400 
NEXT X 

FOR Ү-20 TO 40 
Х-100 : GOSUB 400 
Х-130 : GOSUB 400 
NEXT Y 


These instructions from the PRG draw a sine wave: 


200 FOR X= TO 319 STEP 0.5 
210 Y=INT(90 + BO¥SIN(X/19)) 
220 GOSUB 400 

230 NEXT X 


There is a warning on page 127 of the PRG that BASIC 
variables can overlay the high resolution screen. It is clear 
from the memory map on page 320 of the PRG that our 
bit map memory (8192 to 16191) is in the midst of the 
BASIC program space. BASIC closes in on this bit шар 
memory from both directions. This is all right if the two 
regions dont reach the bit map memory. If your program 
is so large that an overlap occurs, you will have to move 
the bottom of BASIC memory up above address 16191. 
The TXTTAB pointer at locations 43 and 44 determines 
the lowest address used by your BASIC program. Change 
this if your programs conflict with bit map memory. 

It's obvious after running the program on page 88 that 
the random number generator doesn't generate pattern- 
less random numbers. Well go further with random num- 
bers another time. Next month we'll replace some of these 
sluggish BASIC statements with high-speed assembly rou- 
tines. In the meantime, what will you do with those 
64,000 pixels now that you have control of them? O 

SEE PROGRAM LISTING ON PAGE 88 
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MAPPING THE COMMODORE 64 by Sheldon 
Leemon (COMPUTE! Publications, Inc., 1984; $14.95). 
268 pages, 65536 memory locations, softbound. 

Mention memory map to a veteran peruser of computer 
journals and you will conjure up a vision of a nearly 
endless column of numbers, flanked by labels 
to the left and equally cryptic descriptive messages to 
the right. While this sort of information is eminently use- 
ful to those familiar with the innermost secrets of their 
computer, it provides the average user with very little 
that's definitive. 

Mapping The Commodore 64 is a memory map with 
а difference. The list of numbers (in hexadecimal and 
decimal) is still there along with the cryptic labels and 
associated comments. However, comparing this book 
to a memory map is akin to comparing a detailed travel 
guide to a simple road map. Each significant address 
or group of addresses is annotated in considerable — yet 
concise — detail. These are not just one or two sentence 
descriptions. The shortest explanations run several para- 
graphs. The longest are actually comprehensive tutorials 
on the specific features on the Commodore 64. 

For example, the memory locations devoted to the VIC 
chip comprise a surprisingly thorough description of the 
graphics capabilities of the Commodore 64. This book 


‘And not only that...but someday your name 
will be mud in the computer industry!" 


by my side proved a valuable aid in preparing the graph- 
ics articles for the October and November issues of Ahoy! 
Actually, the entire C-64 4K I/O block (53248-57343; 
$D000-$DFFF) spans nearly 100 pages. 

The layout follows the memory arrangement of the 
С-64. Thus chapter 1 is entitled “Page 0” in reference 
to the machine language notation for the first 256 bytes 
(0-255) of available memory. This has nothing to do with 
the page numbering of the book. As a result, the book 
lacks a definitive topical organization other than that 
which may be associated with a specific memory block. 
should take warning. Some idea of what you 
are looking for is needed to comfortably find your way 
around this format. Detailed explanations of specific lo- 
cations are often associated with other addresses which 
may be further on in the text. 

Specific areas of emphasis are the first kilobyte of 
RAM (used by BASIC and the operating system) and 
the ROMs themselves. Most of the addresses in the first 
group include useful hints and tips on the effect of modi- 
fying the contents of the particular location. The sec- 
ond group is broken down into the specific operating 
system routines. Brief descriptions are provided on just 
what each routine does. 

Sprinkled throughout are program examples in both 
BASIC and ML which are used to illustrate the various 
points. These range from brief one or two line affairs 
to full blown utilities. For example, the Vector to Key- 
board Table Setup Routine, addresses 655-656 ($28F- 
$290), includes a C-64 version of a keypress routine 
which generates an entire BASIC keyword from a single 
SHIFTed or COMMODORE keystroke. 

The index was a bit unusual. Rather than the custom- 
ary page numbers, each item was referenced to its actual 
memory address. On occasion this proved to be a minor 
boon, particularly when all that was needed was the actu- 
al address associated with the item in question. Most of 
the time, this arrangement was less than optimum as the 
relationship between page numbers and address was not 
immediately obvious (let's see now, 56576 should be 
around page 203 or thereabouts...). The most serious 
stem was trying to find my way around 
the I/O block, which in the C-64 is multilayered, Track- 
ing down the description of the character generator ROM 
took a little doing. 

The appendix section was surprisingly brief, consist- 
ing only of a program typing guide and a list of the Com- 
modore ASCII, screen, color and key codes. You defin- 
itely get a lot of meat in this volume. 

Mapping the Commodore 64 is a must-have for any- 
one serious about using the 64 for anything other than 
running canned software. For beginners, appreciation 
will increase directly with their computational sophi: 


cation. Advanced users will find many surprises within 
its covers. All users will find it a valuable aid in working 
—Morton Kevelson 


with their machine. O 


his program will provide 

assistance in solving 

numerous problems in 

physics, mathematics, 
and other fields where it is necessary 
to see the behavior of a mathemati- 
cal function. It will plot a function, 
in high resolution, into a given range 
on а small screen (which is large 
enough for most applications). It is 
practically error-proof and easy to 
use, employing the same principles 
as bit map graphics, but over a screen 
of only 9600 pixels (120 * 80). The 
user can specify the portion of the 
function he wants depicted, and 
change the function. 

For programmers, the listing on 
page 109 is easy to understand. It is 
composed almost entirely of subrou- 
tines, and contains many REM's 
throughout. 


HOW TO USE 
THE PROGRAM 

On the bottom of the screen, the 
names of all the keys that can be used 
are displayed. Their functions are as 
follows: 

f1: Graph Cleaner. Clears the 
small screen, but not the equation. 
You can ask for another range with- 
out respecifying the function. 

f3: Range Changer. When 
you press this key, the program will 
request the minimum value (XO) and 
the maximum value (XM) on the X- 
Axis into which you want to plot the 
function. It will then request the min- 
imum and maximum values on the 
Y.Axis (YO, YM). It will then ask for 


By J.M. Marcano 


A Function Plotter 
for the C-64 


the number of pixels you want to use 
in making the graphic. The plotting 
will follow this last input. 

f5: Function Changer. 
Changes the function in the program. 
It is located on line 55 of the pro- 
gram. After this operation the values 
of all the variables vanish, due to the 
fact that the program is ENDed and 
then RUN again. 

f7: Compare with Memory. 
This key, when pressed once, shows 
the graphic on the screen together 


Caracters per inch. 
Number c! the current font 


unique program. 


Create Your Own or choose from over 15 type styles provided in this 


Including Gouhous English Shadou Manhattan 
| в Italic Stop 
| Bold Hairpin BYTE Stopbold 
Pudsy Міттот umopeprsdn f6XeToie 


with the one in memory, in order to 
allow you to compare them. When 
you press the key again, it returns the 
screen to its original condition. 
42: Store M+. When this key is 
pressed, any graphic on the screen is 
copied into memory over any graph- 
ic residing there. 
f4: Recall. Calls the graphic in 
memory bi nd puts it on the 
Screen over any graphic that is there, 
46: Clear Memory. O 
SEE PROGRAM LISTING ON PAGE 109 
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QUAD 


by Michael Beutjer 


Imost everyone loves to 
doodle, and your 64 is a 
great place to do it! 
Whether you use a light 
pen, joystick, trackbail, or write spe- 
cial programs to make your high res- 
olution screens, the 320 x 200 sketch 
pad in your Commodore 64 is just 
plain fun. Sometimes, though, that 
doesn't seem to be enough. So why 
not 640 by 400? 

That's exactly what you'll get with 
Quad-Print, a printer utility that 
dumps four hi-res screens together to 
form one big picture. Versions are 
provided to work with the Commo- 
dore 1526, Epson, or Gemini print- 
ers. With a little work, you сап prob- 
ably use any printer. Included with- 
in the 1526 version is a single screen 


amesitalia.n. 
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dump that. will 
dump any one of the 
four screens by itself. 


following format: 


Bytes Contents 
0- 1023 Screen Memory 
1024 - 9023 Hi-res Bit map 


This is compatible with disk files 
created with DOODLE! from City 
Software, so you can use those pic- 
tures directly. Note that the color 
memory section is used only for dis- 
playing the pictures, not in the print- 
out. Making edges match is a little 
tricky at first, but with a little prac- 
tice it becomes much easier. 

The 1526 version begins on page 
95, and the Epson/Gemini version on 
page 97. If you type in the Epson/ 
Gemini version, only the set of con- 
trol code lines (140 - 1190) corre- 
sponding to your printer should be 
typed. The number in line 565 must 
also be changed from 61145 to 61166 


-PRINT 


А Screen-Dump Utility for the С-64 


for Gemini printers. 
Save the program before 
running it, When you run it, 
you will see a menu screen with de- 
scriptions of the program functions. 
The even numbered function keys 
load pictures from the disk drive. 
When answering the filename re- 
quest, be sure to type the DD prefix 
for DOODLE! files. The odd num- 
bered keys display the pictures cur- 
rently in memory. The pictures are 
numbered 1-4 and when they are 
printed together, they will be arranged 
according to Table 1, Check before 
you print your picture to be sure you, 
have the four screens arranged prop- 
erly. If you need to swap pictures 
from one place to another, use the @ 
key from the main menu and enter 
the numbers of the screens you want 
to swap. Notice that your picture 
names are printed at the top of the 
menu screen to help you keep track 
of them. 

Other program functions are posi- 
tive or negative dump (English pound 
sign or left arrow key, respectively), 
and quick view screens (asterisk) 
which display the pictures in "slide 
show" fashion. To use the quick view 
feature, press the asterisk key from 
the main menu. Screen 1 will be dis- 
played, and you may cycle through 
the screens by pressing the odd num- 
bered function keys. To return to the 
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1526 VERSION 


TABLE 1 
Picture No. Address Position 
1 $4000 Top Left 
2 $6000 Top Right 
3 $8000 Bottom Left 
4 $A000 Bottom Right 
TABLE 2 
Epson/Gemini 
ML Routine Address 1526 Address 
Move Picture 49490 49430 
Display on/off 49188 49188 
Dump positive 49209 49209 
Dump negative 49205 49205 
Load picture 49454 49374 
Note that all “POKE” values are the same for either version. 


main menu, press the space bar. To 
use the single screen dump for the 
1526, press the up arrow key and in- 
dicate which screen (1-4) you wish to 


dump. 

Let's look at the Epson/Gemini 
version to see how it works. 
|526 version works in generally the 


QUAD - PRINT 
SOURCE CODE 


(The 


same way and the SYS addresses for 
it are in Table 2.) There are four ma 
chine language subroutines that the 
BASIC program uses to handle the 
jobs of loading, moving, and print- 
ing your pictures. The move routine 
Starts at 49490, and it moves both the 
bit map and the color information 
block anywhere in the computer's 
memory. To use it, we must pass the 
"from" and “to” addresses to the rou- 
tine. POKE the desired addresses as 
follows 


POKE Value 

49152 Bit Map : From 
Ви Мар : To 
Color Info : From 
Color Info : To 


We need only POKE the high byte 
of these addresses — the low byte must 
always be zero. The routine moves 
the two areas independently; it is up 
10 us to keep track of where we have 
put them. We may use any of the 


LISTINGS 


Main Routine 
Y POINTR=$FB STA POINTRe1 LDA FCSAVE 
; Quad-P. i LDA #<SCRN2 STA $РС 
; (суі i KERNAL LABELS STA — FBSAVE ; SEND 40 MORE 
H LDA #>SCRN2 2 COLUMNS 
3 by M. Beutjer CHKOUT-$FFCS. STA  FCSAVE JSR | DOCOL 
CHROUT-$FFD2 2 25 ROWS PER SCREEN ; RESTORE SCREEN 
+ This program CLOSE-$FFC3 PRINT 2 SCREENS. ; POINTERS 
dumps 4 hi-res (CLRCHN=$F FCC LDA #25 LDA $FB 
Screens side by OPEN=$FPCO STA ROWCNT STA FBSAVE 
side to produce SETLFS=SFFBA ISR ROW ША $РС 
опе 640 х 400 SETNAM-$FFBD. ; POINT TO STA FCSAVE 
printout on LOAD=$FFDS à SCREEN 3 & 4 PLA 
а 1526 printer. CLALL=$PPE7 LDA A<SCRNI STA SFC 
İSTOP=$FFE1 STA POINTR PLA 
қ UNLSNs$FFAE LDA #>SCRNI STA SFB 
*=$C000 + 8ТА POINTR*1 ; CHECK STOP KEY 
i i PROGRAM AREA LDA #<SCRNG JSR STOP 
i DATA AREA STA  FBSAVE BNE NOQUIT 
TURN HIRES SCREEN ӘСІЛІ PLA 
9 i ON OR OFF STA — FCSAVE PLA 
0 DISPL LDA $0011 2 PRINT 2 MORE! JMP QUIT 
0 EOR #$20 LOA #25 і NEXT ROW 
0 STA $0011 STA ROWCNT NOQUIT DEC — ROWCNT 
9 ША $0018 JSR ROW BNE ROW 
EOR #$08 QUIT JSR CFIN RTS 
PBLOCK .BYTE 0,0, STA $0018 RTS : 
0,0,0,0,0,0 RTS В à PRINT 40 COLUMNS 
ROWCNT .BYTE 0 i ; DO 25 ROWS 'j 
COLCNT .BYTE 0 : DUMP ROUTINE ; OF 80 COLUMNS DOCOL LDA $40 
FCSAVE .BYTE 0 В STA  COLCNT 
FBSAVE .BYTE 0 ; NEGATIVE ENTRY ; SEND GRAPHICS COLUMN LDY #0 
REVRSE „ВУТЕ 0 REV LDA 4155 ROW JSR — CLFD ROTATE LDX #0 
ТЕМР .BYTE 0 BNE STORE + SEND 40 COLUMNS 1 TURN OFF BASIC КОМ 
FLAG .BYTE 0 $ JSR | DOCOL SEI 
B ; NORMAL ENTRY 3 SAVE POINTER. LDA 246 
i LABEL DEFINITIONS NOREVS LDA М2 LDA SFB STA 1 
2 STORE STA  REVRSE PHA LOA (POINTR) ,¥ 
SCREEN=$2000 JSR COPEN LDA sec STA TEMP 
SCRN17$4000 + POINT TO PHA ; TURN ON BASIC ROM 
SCRN2=$6000 і SCREEN 1 & 2 і POINT ТО LDA #47 
LDA #<SCRN1 : SECOND SCREEN STA 1 
SCRN4=$A000 STA POINTR LDA FBSAVE cul 
CODES-$C1DU LDA #>SCRNI STA SFB і SHIFT BITS INTO 
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Вивбага 11" 


Mix and match the hard- 
ware peripherals of your 
preference. Increase your 
programming power with 
easier-to-use disk commands 
and machine language. All 
with one plug-in module 


е. es ои use almost any 
ination of 
ЕЕН A NIE 
floppy or hard disk drives 
and Centronics-type 
parallel printers 
all interface functions and 
device allocations are set 
by switches on the. 
BusCard |! module; errors 
due to software incom- 
patibility are eliminated 
includes BASIC 4.0, the 
some powerful language 
used in Commodore's top- 
of-the-line business com- 
[Ше plus a machine. 
language monitor 


Ви-80 


Double your screen capacity 
when using your favourite 
Batteries Included software 
programs. В.1.-80 turns your 
40-column screen into о 
crystal-clear, high-visibility 
80-column display. Works 
with PaperClip word- 
processor and The Consul- 
tant database monager— 
maximum readability and 
minimum eye-strain, even 
with a screen full of 
characters. It’s the fast, easy, 
plug-in way to get twice the 
amount of data onto your 
monitor screen. And В.1.-80 
also gives you the easier-to- 
use disk commands, with 
BASIC 4.0 language built 
right into the module 


fully self-initializing, no 
commands to enter; just 
plug В.1.-80 into the car- 
Че slot and you're 
ready to run 

switch back and forth 


Li оне мана The Consultant 


for 


between 80 and 40 col- 

umn display at any time 
* completely eliminates 
snow, fuzziness, hashing 
and interference 
easy-to-install module 
incorporates highest 
quality hardware com- 
ponents throughout; one- 
year manufacturer's war- 
ranty is standard 
* comes complete with 80- 
column operating system 
and comprehensive 
documentation, including 
full description of BASIC 
4.0 commands 
use with Commodore 
1701 and 1702 color 
monitors, or any 
monochrome video 
monitor 


a 1:80 Column 


Adaptor coming soon for 
Atari XL computers! 


Use the printer of your 
choice with your Com- 
modore computer—just plug 
in this compact module, and 
you're instantly compatible! 
Take advantage of today’s 
high-speed, high-quality 
printers with the В.І. Printer 
Interface. 


* works with any 
Centronics-type parallel 
printer, which includes 
almost all major printers 
on the market 

completely self-contained 
and ready to run; no 
extras to buy, no hard- 
ware or software modifi- 
cations to printer or 
computer are required 

all print functions are con- 
trolled by switches on the 
module; just set them 
once, and never worry 
about it again 


USE THESE TOOLS WITH FaperClip, The Consultant, AND OTHER HARD-WORKING, HIGH-QUALITY SOFTWARE PROGRAMS FROM BATTERIES INCLUDED 


30 Mural Street 
Richmond Hill, Ontario 
148185 CANADA 

1416) 881-9941 

Telex: 1290 


The Energized Software Company!" 


WRITE TO US FOR FULL COLOUR CATALOGUE of cur products for COMMODORE, ATARI, APPLE and IBM SYSTEMS 


JMMOOORE AND IBM ARE REGISTERED TRADEMARKS RESPECTIVELY OF APPLE СОМУ 
‘BUSINESS MACHINES INC. AND GM BUSINESS MACHINES INC 


OR TECHNICAL SUPPORT OR PRODUCT INFORMATION PLEASE PHONE (416) 881-9816 


puer ааа 


17875 Sky Park North, Sulte P 
Irving, California 
USA 92714 


(216) 881-9816 
Telex: 509-139 


т а рез ($2000), and the screen memory sec- 
RNS tion must be at 1024 ($0400). The 
BASIC program uses the move rou- 
tine to copy the desired picture into 
position, and the second to turn it on 
for viewing. When уой are finished 
viewing it, calling the second routine 
again will turn it off 
The load routine is done from ma- 
chine language so that the address 
header of the disk file may be ignored 
easily. The routine loads the bit map 
file in the display area so that there 
are no conflicts with already loaded 
pictures. It is then moved to the de- 
sired location. Before using this rou- 
tine, the filename must Бе POKEd 
into the filename area at 49157, and 
the filename length must be POKEd 


Typical Distribution 
oF Costs 


into 49156. 
The print routine has two entry 
С-645 RAM including "under" the 51С00 or $C000 to ЗСЕЕЕ. points: 49209 and 49205 for normal 
kernal or BASIC, but to avoid con- Тһе display on/off routine toggles алд negative printouts respectively. 


flics the BASIC program doesnt hi-res display on or off. The pictures Table | gives the start address of the 
store screen maps between $0000 and Би map must already be at 8192 bit maps which are printed. Printer 


j PRINT AREA i CRSR 


JSR — UNLSN 
DOTS ASL TEMP шү ө JSR  CLRCHN 
ROL PBLOCK,X STY SFB LIB SINGIS26 ||; SEND А LINEFEED 
INX үш es ND бр шх M 
CPX "8 JSR — CHKOUT 
BNE DOTS STY SED Fast Dump Routine МА #13 
INY LOX ORIG ; У JSR — CHROUT 
CM ив STX SEE Fast 1526 graphic ISR — UNLSN 
BNE ROTATE STX ТЕМР dump routine ISR — CLRCHN 
сс мї 18С TEMP for Quad Print LDA #0 
г BUMP BIT MAP POINTER INY STA  CRSR 
LDA POINTR СРҮ 9520 i ОРЕМ4, 4,255 (DATA) RTS 
ADC LA BNE МІ COPEN LDA 3 THIS ROUTINE 
STA POINTR Loy #0 TAX + PERFORMS 
LDA POINTRe1 MOVE SEI LOY #255 THE SEND FUNCTION. 
ADC #0 LDA ne JSR SETLPS BEFORE THE NEW 
STA POINTR+1 STA 1 LDA 2 CHAR 18 PROGRAMMED 
LDX LL) LDA (GFD),Y JSR ЗЕТМАМ IT IS CHECKED 
; SEND TO 1526 STA (ФЕВ),Ү JSR OPEN AGAINST THE 
PRINT JSR CSEND LDA ыт BCS COL + OLD CHARACTER ТО 
DEC COLCNT STA 1 + ОРЕМ6,4,6(5РАСІМС) ; AVOID UNNECESSARY 
BNE COLUMN си x LDA © ; CARRIAGE RETURNS. 
RTS INY TAY CSEND JSR CHECK 
i BNE MOVE LOX мн ; SEND OLD CHAR. 
; LOAD A DOODLE FILE INC  $FC JSR — SETLFS BEQ — CSNI 
% AND MOVE IT, INC $FE LDA #0 Lox. #4 
5 LDA $FE JSR — SETNAM JSR  CHKOUT 
; OPEN 1,8,0 œP TEMP JSR OPEN LDA #141 
SCRNLD LDA "n BNE MOVE BCS COL JSR — CHROUT 
LDX LL LDA  CDEST + ОРЕМ 5,4,5 JSR — UNLSN 
LDY #0 STA  $FC i (PROGRAM CHAR.) JSR — CLRCHN 
JSR —SETLFS LDA  CORIG LDA © LOX 45 
LDA LENGTH STA SFE TAY а UT 
X — #<МАМЕ LOX #4 LOX 4 
tor FNAME SEI JSR SETLFS SENI LDA PBLOCK,X 
JSR БЕТМАМ LDA no LDA #0 БОК —REVRSE 
LDA #0 ЗТА 1 JSR ЗЕТМАМ JSR — CHROUT 
TAX CMOVE LDA (SED),Y Ed ӨРЕН s 
+ DOODLE АТ 1800 STA (SFB),Y 
i LOAD от asic INY JSR ЗЕТЗРС BNE SENI 
JSR LOAD BNE — CMOVE сс JSR — UNLSN 
LDA #1 INC  $FC col RTS BIAS LDX “ 
JSR CLOSE INC $FE ; SET SPACING TO"21" JSR — CHKOUT 
JSR — CLRCHN DEX SETSPC LDX — $6 LDX — CRSR 
RTS BNE MOVE JSR CHKOUT вп BEQ ВІ2 
LDA “т LDA 421 LDA +32 
MOVE А DOODLE FILE STA 1 JSR — CHROUT JSR — CHROUT 
FROM HI-ORIG LO-00 CLI LDA 413 DEX 
TO: H EST 10:00 RTS JSR — CHROUT JMP. BIL 
0 Oy! 
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"THE CONSULTANT в capable of very large and complicated searches. 
] It isa very good system at a reasonable price. Documentation: excellent. overall rating: 9/ 10" 
TPUG MAGAZINE 


“...уои should definitely try out THE CONSULTANT. .. powerful and very well designed." 
EVERYTHING YOU CAN DO WITH YOUR COMMODORE, 1984 EDITION 


"Fora truly professional data management program, you will have to look a long 


) time before you find a better one than THE CONSULTANT." 
-HOME APPLICATIONS FOR THE C-64 
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CONSULTANT controls your information for you. You choose the file size and 
: lication you can think of. And you can change ће 
to learn and simple to use. Big system speed and 
© CONSULTANT comes highly recommended! 
64, COMING SOON FOR THE IBM PC. 


ftware Company 


i products for COMMODORE, ATARI, APPLE and IBM SYSTEMS 


Mu 
SON 


OM 


command contains the number of 
bytes in the command string followed 
by the actual string. The line spac- 
ing command area begins at 49600 
(SCICO); the line graphics setup 
command begins at 49608 ($CIC8) 

If you have a printer other than Ep- 
son or Gemini, you will need to 
change these values to those recog- 
nized by your printer. This will not 
guarantee that the routine will work, 
because there are differences in the 
way printers translate graphics codes 
into print patterns. The Epson and 
Gemini patterns print bit 7 at the top 
and bit 0 at the bottom of each col- 
umn of eight dots of graphics byte 

If your printer is different, you may 
need to do another translation of the 
printer codes before you print them; 
however you will have to use the 
setup information for the Epson/ modules at the end of the DATA source code (reproduced on these 
Gemini version is contained in the statements. The first byte of each pages) and an assembler to do this. 


Single screen dump on a Commodore 1526 printer. 


BI2 — INC сиз NOREV1 LOA REVRSE .BYTE 0 Loy ж 
LOA #254 STORE! STA TEMP BYTE 0 JSR SETLPS 
JSR — CHROUT EA FLAG [BYTE 0 ША 00 м 
JSR — UNLSN H 
JSR — CLRCHN STA 3 LABEL DEFINITIONS БЇТ ОЙТ) d 
ISR PBLSV LDA H i P 
RTS STA SCREEN=$2000 i TO DEVICE 4 
i DONE. CLOSE CHANS, ms SCRN12$4000 15 ар 
CFIN “JSR CLFD 
Lox #6 ROW! JSR SCRNJ=$8000 i POINT TO SCREEN 1 
JSR — CHKOUT JSR SCRN4=$A000 3 AND 2 
ША #24 ISR CO0ES=$C100 LDA #<SCRNI 
JSR — CHROU E POINTR=SFB noe пн 
ША 413 3 ; 
JSR — CHROUT коа! ПЫЗ 2 KERNAL LABELS ate edm 
JSR — UNLSN BNI H 
ISR — CLRCHN DONE JSR CHKOUT=$FFCS STA FBSAVE 
JSR съл, RTS CHROUTs$FFD2 LOA #>SCRNZ 
RTS «END CLOSEs$FFC3 STA — FCSAVE 
б o OX. pas “CAIN po 1 Spacia мін 
JSR CHKOUT EPSON/GEMINI SETLFSs$FFBA > iDK асввснин 
LDA #254 SETNAM=$FFBD R 
ist eor VERSIO LOADS PEDS JSR СИНО 
JSR — ÜNLSN : CLALL=$FFET i 25 ROWS PER SCREEN 
1с CURA TE STA ROWCKT 
1 : 
RTS PROGRAM AREA : PRINT 2 SCREENS! 
CHECK 10Х #0 JSR ROW 
GHKI LDA  PBLOCK,X This program dumps ; POINT TO SCREEN 3 
СМР — PBSAVE,X 4 hi-res screens туя HIRES SCREEN IND Aaa 
BNE | СКОТ ide b: ide to i 
INX produce one DISPL LDA $0011 STA POINTR. 
шо VOUS Eg E BN 
m RTS Р i LDA  $D0 LDA  44SCRN4 
PBLSV LDX #0 *=$C000 EOR 450 STA  PBSAVE 
PBLI LDA  PBLOCK,X i STA 80018 LDA  4»SCRN4 
STA PBSAVE,X ; DATA AREA RTS HER HTE VE 
INX : 
CPX us ORIG 0 DUMP ROUTINE STA | ROWCNT 
BNE PBLI ‚зү H 4 Lee лал сай 
РВЗАУЕ SITE 0 Er L] ; NEGATIVE ENTRY H populus 
REV LDA 4255 
vu m Е BNE STORE дит ик 
тон 0,0,0, ; NORMAL ENTRY 
Single Screen Dump ERN 0,0,0,0,0 NOREVS LDA #0 ША 
his routine sends уш T Н TORRE да 2 REVRSE se 
ingle 1526 pic. со! - + n 
aii, "IDA 259 ЕСЗАУЕ .ВҮТЕ 0 ША 04 CLOSE CHANNEL 


BNE БТОВЕІ FBSAVE .BYTE 0 LX н КЕЗ 
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AND SUBSCRIPTION PRICES 
- (Postage and Handling Included) c 
0.8. CANADA ELSEWHERE Indicate your choices below, and sp 


Коле ог cassette at the bottom. In Canada add § 

s 51395 рег utside U.S. and Canada add 
per issue. 

Disk Subscription suags 1487. 84 

Cassette Subscription 


КЕ, цесс m жест DISK CASSETTE. 
‘Make check or money order payable to Double L Software. State Residents must add 8% sales tax. 


Send coupon or facsimile t: NAME 
Ahoy! Program Disk/Cassette 
lon International Inc. ADDRESS. 


ча 5 West a4th Street Suite 407 
http://www.oldgamesitalia.net/ ил 


Quad-Print dump оп а 


You should also keep in mind the 
fact that the interface you use (for 
your Epson or Gemini printer) will 
affect the graphics operation. These 
programs assume that your printer 
does no translation of the data that 
is sent by the computer (transparent), 
and that the printer will do a linefeed 
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Commodore 1526 printer. 


carriage return 

For those of you using the 1526 
version, I'm sure you will notice that 
your printer seems to do a lot of mov- 
ing back and forth to print the pic- 
tures. Unfortunately, this seems to be 
unavoidable due to the way Commo- 
dore has set up the graphics for this 


may print one graphics character per 
line. The only way to print more than 
one graphics character per line is to 
send the printer a CHRS(141), ог 58) 
hex, which is a “line reset” command. 
This command causes a carriage ге- 
turn without a linefeed, and that is 
why you see all the shaking. I don't 
think it will cause any problems, as 
Thave dumped numerous pictures on 
mine. If there is a better way to do 
this, I haven't seen it. (But I would 
like to!) 

Although hi-res screen design pro- 
grams for the 64 are presently lim- 
ited to one screen for the "sketch pad.” 
this utility will allow you to do a lot 
of designs with your computer and 
printer that are not yet possible any 
other way. Good luck and happy 
doodling! Г 


automatically whenever it receives a — printer. According to the manual, you PROGRAM LISTINGS ON PAGE 95 
JSR — CLRCHN COLUMN LDY +o 2 AT 1600 LDA 40 
RTS ROTATE LOX #0 LDA LENGTH STA 1 
1 ; TURN OFF BASIC ROM LOX САМЕ WOVE LDA — (SFD),Y 
i DO 25 ROWS SEI LDY — #>NAME STA ($FB),Y 
3 OF во COLUMNS LDA #46 JSR — SETNAM INY 
: STA 1 LDA #0 BNE СМОҮЕ 
; SEND GRAPHICS LDA —(POINTR),Y TAX INC фес 
i SETUP COMMAND STA ТЕМР LDY эс INC SFE 
ROW — LDX — MXLNCMLN i TURN ON BASIC ROM JSR LOAD DEX 
JSR РАТСИО ША MT ША M BNE СМОУЕ 
; SEND 40 COLUMNS STA Т JSR — CLOSE LDA MT 
JSR DOCOL сит JSR — CLRCHN STA 1 
1 SAVE POINTER 1 SWIFT BITS RTS сит 
LOA  $rn i INTO PRINT AREA 1 RTS 
PHA 0075 ТЕМР i MOVE A DOODLE PNTCMD STX — PNTOUT+2 
LDA 8С PRNTLN X i FILE FROM STX  GMPARE+1 
PHA i НІЗОЯІб LO=00 LOY #0 
1 POINT TO #8 i TO: HIsDEST 10-00 tox ө 
i SECOND SCREEN 0018 i PNTOUT INX 
LDA FASAVE Loy #0 LDA — LNCMLN,X 
STA see STY $РВ JSR —CHROUT 
LDA FCSAVE LOX DEST TXA 
STA SFC ; BUMP BIT STX $PC CMPARE СМР — LNCMLN, Y 
| SEND 40 MORE COLS. i POINTER STY SED BMI PNTOUT 
28 DOCOL сс LOX ORIG RTS 
; RESTORE SCREEN LDA STK SFE 
1 POINTERS ADC STX ТЕМР EPSON PRINTER 
LDA SFR STA — POINTR м! INC TEMP CONTROL CODES 
STA ЕВЗАУЕ LDA РОМЕН INÝ 
LDA $PC ADC 90 CPY #520 LNOMLN 15 
STA — FCSAVE STA — POINTReI BNE МІ i LINE COMMAND LENGTH 
PLA шх #0 Loy 90 ; (NO. OF BYTES) 
STA SFC ; SEND GRAPHICS MOVE SEI LNCMLN .BYTE 5 
PLA ; TO PRINTER LDA 046 ў 
STA SFB PRINT LDA —PRNTLN,X STA 1 i LINDAT 18 
; CARRIAGE RETURN EOR — REVRSE LDA  ($ED).Y i PRINTER SETUP 
EAT JSR CHROUT STA ($FB),Y i COMMAND: 
INX LDA #47 ; ESC,*,6,128,2 
i CHECK STOP KEY CPX STA 1 LINDAT .BYTE 
JSR STOP BNE PRINT сы 27,42,6,128,2 
BNE — NOQUIT DEC соискт INY i 
PLA BNE COLUMN BNE MOVE *sLNCMLN* 10 
PLA RTS INC SPC ; SPCMLN 15 
JMP QUIT 4 INC $FE i LENGTH OF 
i NEXT ROW ; LOAD A DOODLE LDA $FE LINE SPACING 
NOQUIT DEC ROWCNT i FILE AND MOVE IT. СМР ТЕМР ; COMMAND. 
BNE ROW - BNE MOVE SPCMLN .BYTE 3 
RTS i OPEN 1,8,0 LDA СОЕЗТ : 
i SCRNLD LDA #1 STA SFC 3 SPCDAT IS 
i PRINT 40 COLUMNS ux on LDA  CORIG ; PRINTER SPACING 
i #0 STA $FE i COMMAND: ESC, A 
DOCOL LDA #40 JSR — SETLFS LX #4 Secost -BYTE ФТ, 
STA — COLCNT i LOAD DOODLE SEL TEND 


WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER. SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now, let's examine how these organizers work. There are 3 CRT-Models. 

CRT-1 holds а Monitor or T. V. Set and a VIC 20 or 64. АП wires & cartridges fit 
neatly under the organizer, 

CRT-2 same as CRT-1, but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6AMP Fuse). 

CRT-3 same as CRT-2, but also has: SURGE & SPIKE PROTECTION built in. 

р.р-1: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 
All wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection. 


CALL FOR LIST OF SOFTWARE AVAILABLE 


VIC 30 and Commedens ы "T E сто 


Р.О. Box 108, Маг еуШе. IN 46056 


Reader Service No. 276 


CRT-1 $17.98 
CRT-2 $29.97 
CRT-3 $37.97 
P-D-1 $19.48 


Optional Accessories 


SS-1 Surge & Spike 
Suppressor 
$29.95 


CF-1 Computer Fan 
$29.95 


Plus Shipping 


CALL TOLL FREE 
1-800-233-3645 Ext. 15 


For the Unexpanded 


VIC 20 


By Kevin Dewey 


n this game you are Speedy, the fastest being in 
the universe —not an amazing accomplishment, 
seeing that no one else can move. Your goal is 
to collect all your smiley-faced green friends for 
a party you're throwing, while avoiding your frowning 
purple enemies, who are no fun at all, and in fact tend 
to make you explode upon contact with them. Yes, they 
are party poopers. 

You get seven little Speedy clones to do this, and you 
gain another for every screen of friends you successfully 
clear. Speedy clones move very fast, and in all directions, 
so good reflexes and hand-eye coordination come in 
handy, but it's wise to also incorporate a bit of strategy 
into your gameplay. For instance, try to find the easiest 
ways to get a friend out from a group of enemies before 
plunging into the group. This, as well as other ways of 
using brain power instead of relying solely on a fast hand, 
will affect the outcome of the game for the better. 


SCORING 

The game is scored as follows. Every friend you pick 
up is worth seven points. Every bonus token is worth 
the number of the screen you are on, multiplied by the 


number of friends you have picked up thus far on that 
screen. For this reason, it is best to pick up a lot of your 
friends on a screen, and then pick up the bonus object 
when there are, say, one or two friends left, to maxi- 
mize your score. The bonus objects dre easy to spot, 
because they look unlike anything else. 

At the end of the game, 50 bonus points are awarded 
for each screen you have successfully passed during the 
course of the game. 


SKILL LEVELS 

There are 15 skill levels, 1 being the easiest and 15 
being the hardest. The main difference between the skill 
levels is in the amount of enemies. On screens like 15 
there will be a great deal more purple faces than on the 
easier screens, but this can be looked at two ways. While 
it is harder to clear a screen of goodies when there are 
a lot of enemies around, the higher the skill level, the 
more the bonus token is worth, and the more points are 
possible. To get really high scores, you must learn to play 
well on the harder screens. 

I hope you enjoy playing Speedy! ГІ 

SEE PROGRAM LISTING ON PAGE 108 


THE Short Wave Listener ron 
RECEPTION OF MORSE CODE & 
RADIO TELETYPE SIGNALS. 


Plug the SWL cartridge into your Commodore "64" Expansion Port, connect a 
shortwave radio and you'll be watching text readout from weather stations, 
news services, ships and HAM radio operators all over the world. A whole 

new use for your home computer. The SWL contains both program in 

ROM and radio interface circult to copy Morse code and all 
speeds/shifts of radio teletype. Plus the on screen tuning 


indicators mean you never have to take your eyes off the video 
for perfect tuning. Housed in a small 3*x2-1/2" x 7/8" 
enclosure, with speaker in/out and practice hand key 
Jacks, it needs no other computer connection or 

power supply. Unshift on space, word wrap 

around, real time clock, and keyword or 

manual printer control for permanent 

paper сору, so that you won't miss a 
single bit of the action. For about 
the price of another "Pac-Zapper" 
game, you can tie into the 

exciting world of digital 
communication with 

the Microlog SWL. 


А complete Morse code tutor in a conveni- 

ent plug-in cartridge for your Commodore 

“64." The Morse Coach means business. It's 

not a toy program or a simple random code gen- 
erator. Originally developed jointly by Microlog and 
several government agencies experienced in Morse in- 


struction. Four years of extensive service prove it’s the 
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Reader Service No. 251 


at TUSSEY COMPUTER PRODUCTS" . . 


WE KNOW WHAT YOU WANT! 


WE VALUE YOUR BUSINESS. IN ORDER TO EARN IT, WE ARE GOING TO GIVE YOU THE THINGS YOU WANT MOST FROM А MAIL ORDER COMPUTER STORE 
1) Low Prices! We try to have the lowest prices around |! you ва find alower price, 3) Straight talk - We will give you accurate information as 
please give us a chance to beat it 


2) Fast, dependable service - Our shipping department works hard to get your 
orders out quickly. usually within one business day. 


stoclang condition 


4) Personnel who care - The people at TCP sincerely want you ta be happy with 
the way your order is handled We all know our jobs depend on having а happy 


овпеяв ому ptease: 800-468-9044 “stone! INFORMATION & PA ORDERS: 814-234-2236 
PHONE LINES OPEN 10-8 MON-FRI, 10-5 SAT 


THE PANASONIC KXP 1091 PRINTER 
quality at the flick of a switch 


Our price .... С +27800 |... 


Panasonic КХР 1090 . звао MSG 
SG 10. NLO Dot Matrix trom са 


the purchase of any primer, disk drive, monitor, or moden 


sk Orive 5196 00 


PRINTER INTERFACES 


W PRINTER FROM STAR! 


the popular бет 
ax 


DATABASES 


BUY A BUNDLE— 
SAVE A BUNDLE 


Order one of these popular packages of products by number lor super 
savings! 


СО WORD PROCESSOR 64 and SPELLPRO 64 


LE 


111888 


n 3. Н CONSULTANT 


СЕ DATABASE ADVANCED REPORT GENERATOR and 
2 M ” MIRAGE PROFESSIONAL WORD PROCESSOR 


А power prc ви өнерін көріне 


nass 


'SPELLPACK 


120885 


TUSSEY COMPUTER PRODUCTS 


7 (formerly Tussey Mountain Software) 
s € Ете ее BOX 1006 
"DEALER INQUIRIES INVITED" SATE COLLEGE РАТЫН 
Other product lines available! Call for prices. 


Reader Service No. 278 


COMPUTER AND SOFTWARE 


SUPER AUTO сом 
DIAL MODEM 94 


(Best communications package in USA) 


ОЗ $ 5 е оо 
МАҮ 


* Computer Learning Pad $37.95 
LOWER * New Voice Synthesizer 349.00 

* 12" Green or Amber Monitor 579,95 
* 12" Daisy Wheel Printer $199.00 


COMMODORE 64 


* with 519.95 Software Purchase 


ж 
5 1 3 es pe САТЕ 
BEFORE 


* 170K Disk Drive $149.00 * You 
* Tractor Friction Printer $169.00 ORDER 
* 12" Hi-Res Color Monitor $189.00 * 

* See Page 13 


SPECIAL SOFTWARE COUPON 


* COMMODORE 64 COMPUTER $139.00 We pack a SPECIAL SOFTWARE DISCOUNT SUPER AUTO DIAL MODEM $59.00 
You pay only 5139.00 (with the 51995 soltware COUPON with every COMMODORE b4 Easy № use. Just plug into your Commodore 64 
purchase, see below) when you order the powerful COMPUTER, DISK DRIVE, PRINTER, or npuler and youre ready to Wonsmit and гесе! 
Вак COMMODORE ва COMPUTER! LESS the volue of MONITOR we soll! This coupon allo ssoges. Eosier to use than dialing your telephone 
the SPECIAL SOFTWARE DISCOUNT COUPON we pack to SAVE OVER $500 OFF SALE PRICESIT lust push one key on your computer! includes 
with your computer thot allows you to SAVE OVER десіне easy 1o use program for up and down 
5500 ОН software sole prices!! With only $100 of loading to printer and disk drives, 

savings applied. your net computer costis $39 0011 (Ехстеріок) (4515129 00 SALE 139.00 

* YIOK DISK DRIVE 5149.00. PROFESSIONAL SOFTWARE 


NEW COMPUTER шан 
You pay only $149.00 (with the 31995 мене COMMODORE 64 Moles or propia oben et ТЫ, RENE 
Brive! LESS the value cl Ihe. SPECIAL SOFTWARE Nome List sele coupon TN. oe Mestre ead esr ден әлди 
DISCOUNT COUPON we pack with your disk drive that Execute Word Processor $99 $38.00 529.95 drow on the screen on your printers, FANTASTIC! IT 
slows you to SAVE pa КЭШ ТР В doy on he aren on 

prices! ! With only $100 of savings applied. your nel тен 50 


өз nim 
isk drive costi $49.00 раз Бан NEW VOICE SYNTHESIZER 5 
* 13" HI-RES COLOR MONITOR $189.00 meme For Com:64 or VIC-20 computers, Just plug и ің and 


You pay only $189.00 (with the $19.95 soltwore you con program words and sentences. adjust volume 

purchose. see below) when you order this 13" COLOR а мез 329 #5 and pitch, make talking adventure games. sound 

MONITOR with sharper and clearer resolution than Ba action games and customized talkies?! FOR ONLY 

олу other color monitors we have tested! LESS value i4 - 519.95 you con add TEXT TO SPEECH, jus! type o word 

о the SPECIAL SOFTWARE DISCOUNT COUPON we 5 на and hear your computer talk — ADD SOUND TO 

pock with your monitor that allows you 10 save over : Zork”. SCOTT ADAMS AND AARDVARK ADVENTURE 

$500 off software sale prices!! With only $100 of GAMES! (Disk or tape. 

Savings applied. your net color monitor cost is only Cover 4 51 

589.00 (16 Colors] Sarn мк. Ed 12" GREEN OR AMBER MONITOR 579.95 

20 COLUMN 80 CPS РА eise n n eta e cer маин een Бр 

TRACTION/FRICTION PRINTER $169.00. нете H ма glare! PLUS 39:95 for connecting cable. Com'é4 or 

‘ov pay only 5189.00 when you order the Comstar T.F со. 

delure Une prier har рл ва h эше single fl (See over 100 coupon items in cur catalog s 

sheet, roll or fon fold paper labels. etc. Impact dot Write or call for 

matrix, bidirectional, LESS the volue of the SPECIAL Sample SPECIAL SOFTWARE COUPON! "Jukr 

SOFTWARE DISCOUNT COUPON we pack with your extra large corroge, up to 12 CPS bi-directional 

КЫ Пре, Мона үөн е. SAVE NER хоса printing. drop in cassette ribbon, centronics parallel 

Software sale prices!! With only 5100 of savings ог RS232 serial port built in! (Specify) 

applied your net printer cost is only 569.00. at $209.00 SALE TAN 


ш COLUMN BOARD $79.00 тете 
Now you program 80 COLUMNS on the screen at one PROFESSIONAL BUSINESS SOFTWARE Е eee INTERFACE $59.00 
EAR И! Да рови? Con we чай том pris RES PLE па Conese Sone! 
е $79.95 matrix with graphic copobility printers 


M COLUMNS COLOR ms omes me шоно мнн 
EXECUTIVE WORD PROCESSOR $39.00 579.95 


57995 
This EXECUTIVE WORD PROCESSOR is the finest [| General Ledger inn PROTECTO WARRANTY 
available for the COMMODORE 64 computer! The 


grille for the, COMMODORE 64 computer! The All Protecto's products carry a minimum 90 day 
Nord. Processing warranty. Therefore, if anything fails within 90 
wor or block on 
e re рене ы or eine chy [The $19.95 Software Purchase Options | doys trom the date ol purchose. you simply 
250 WORD DICTIONARY, complete cursor ond ия sate | send your product to us vio United Parcel 
к= aia poea ы КД Беттен aunso Geerd] cM Service prepaid. We will IMMEDIATELY send 
insertion. automatic deletion. centering. margin Daron Strate ins you o replacement o! no charge vio United 
settings and output to oll printers! Includes o HES Cares anii ЕН Parcel Service prepaid. This warranty proves 
powerful mail merge. 529 95 once одоіп that We Love Our Customers. 
{is $99.00 SALE 339.00 Coupon $29.95 


12" DAISY WHEEL PRINTER $199.00 
Superb letter quality daisy wheel printer. 12 


* LOWEST PRICES * 15 DAY FREE TRIAL PHONE ORDERS * 90 DAY FREE REPLACEMENT WARRANTY 


+ BEST SERVICE IN U.S.A. * ONE DAY EXPRESS MAIL — o2. т, Weekdays + OVER 500 PROGRAMS * FREE CATALOGS. 


9 a.m. - 12 noon Saturdays 


Add 510.00 for shipping. handling ond insurance. Illinois residents PROTECTO 
please add 6“, tox. Add $20.00 for CANADA, PUERTO RICO, HAWAII 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars я 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. | We Love Our Customers 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 пазени 2 
days for delivery. 2 o 7 days for phone orders. 1 doy express mail! Box 550, Barrington, Illinois 600; 
| VISA — MASTER CARD — C.O.D. No C.O.D. to Canada, APO-FPO 31 2/382-5244 to order 
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FANTASTIC COMPUTER PRINTER SALE!!! 
10X COM-STAR’ 


Tractor Friction Printer 
130-150 CPS 


COM-STAR 


е Lowest Sale Price, Premium Quality, Tractor/Friction Printer in the U.S.A. (B: 
* High Speed 130-150 Characters Per Second “ 40, 46, 66, 80, 96, 132 line spacing 
* Word Processing, Letters * Business Forms * Labels, Graphics, Tables * List Programs 
* Fantastic Graphics * Print Modem Data * The Most Important Accessory For Your Computer 


Premium Quality ай Li K V ia 
130-150 CPS 10X COM-STAR € Olympi 
Printer $199 12" DAISY WHEEL Executive Letter Quality $339.00 
carriage, prints 81x11” standard PRINTER $199.00 15" Daisy Wheel Printer 
sheet or continuous feed paper, дук Superb letter quality daisy This world’s finest daisy wheel 
onal, impact dot matrix, 180. wheel prin extra large carriage, printe tic letter quality, up to 20 
ability for 18 x 18 dot matrix UP to 12CPS bi-directional printing, CPS tional, handle 144. 
MIS], high resolution big drop-in cassette ribbon, (90 day forms width! Has а 256 character print 
M ining “pack spacing, true Warranty) centronics parallel or F buffer, special print enhancements, built 
with uper and Serial port built in in tractor-feed (Centronics Parallel and 
s with super and List $299.00. Sale $19 в: Interface) (90 day warranty). 


subscripts, prints standard, S24 1 
graphics, and special List $649.00. Sale $339.00 


gives you print quality а ] tures 
оп printers costing UKI H 
! (Centronics Parallel Interface a i 1a 
е than E List $499.00. 4) Оутр 


Printer/Typewriter Printer/Typewriter Combination $439.00 


Premium Quality 150-170 CPS ation 827 Better than IBM 


PEORES 10 CES ДЕР Sapar MUR Шү, дану. ОСЫ ы о 
15%Х COM-STAR Business уш priner/typewriter combi а ТЫН TAS 


Printer $319.00 Two machines in one — just a flic e machines in one, just flick the switch for 
Has all the features of the 10X COM- switch. 12" extra large carriage, up to 20 CPS printing (300 Words per 
STAR PRI plus 15%” carriage typewriter keyboard, automatic margin minute) on a 15" carriage that handles 
more powerful electronics components to control and relocate key drop in cassette up to 14 1/8" in. paper. Drop in cassette 
handle large ledger business forms! ribbon! (90 day warranty) centronics ribbon — express lift off correction, 
(Better than Epson FX 100). List $599. parallel or RS232 serial port built in Centronics parallel interface (90 day 
Sale $319.00. (Specify). List $399.00. .00. warranty). List $749.00. Sale $439.00 


* 15 Day Free Trial — 1 Year Immediate Replacement Warranty 
ЕС... SENI 0 ee 


PARALLEL INTERFACES 
i — $59.00. For VIC-20 and COM-64 — $59.00. Apple — $79.00. 


‘Add 51450 for shipping. handling and insurance. Illinois residents 
please add 6% tax. Add $29.00 for CANADA, PUERTO RICO, HAWAII 
ALASKA. APO-FPO orders. Canadian orders must be in U.S. dollars. 


WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA We Love Our Customers 
close Cashiers Check, Money Order or Personal Check. Allow 14 5 
ҚЫ tar dU e reside doy express me Box 550, Barrington, Illinois 60010 


VISA — MASTERCARD — C.O.D. No C.O.D. to Canada or APO-FPO. 312/382-5244 to order 


COM-STAR PLUS: ABCDEFGHIIJKLMNOPORSTUVWXYZ 
Print Example: ABCDEFGHIJKLMNOPORSTUVWXYZ 1 234567090 
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FANTASTIC PRINTER 
524% SALE! 5249 


Commodore 64 — VIC 20 — Atari 


40 And 80 Column Printers :: Up То 100 Characters Per Second :: Full Graphics Capability 
Upper And Lower Case :: Advanced Thermal Technology For Quiet Opera 


3100 Alphacom 42-80 CPS 40 Column Printer 

Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower case. Comes with a roll of 
paper and all power adapters needed. Perfect 
for a spare printer or program lister. List $99.00. 
Sale $24.95. 


40 Column Extra Paper LIST SALE 
3103 25 Meter Rolls Blue 5995 $3.00 
3104 40 Meter Rolls Blue 516.95 $3.95 


3105 25 Meter Rolls Black (1 per pkg.) 512.95 $3.95 
3106 25 Meter Rolls Blue (2 per pkg.) 519.95 55.95 
3107 25 Meter Rolls Black (2 рег pkg.) $1995 $5.95 


3150 Alphacom 81-100 CPS 80 Column Printer 

Now you can have a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adapter 
With the intelligent interfaces (sold below) you 
сап do Ascii graphics as well as Atari or 
Commodore graphics. Plus you con do 
underlining and expanded modes. Print out 
pictures, program listings, word processing 
pages, etc. Perfect! for the student or 
homeowner. List $199.00. Sale $39.95 


80 Column Extra Paper LIST 
3153 40 Meter Rolls Blue $14.95 i ж 
3154 40 Meter Rolls Black $19.95 


3155 25 Meter Rolls Blue (2 per pkg.) 51995 
3156 25 Meter Rolls Black (2 per pkg.) 51995 


3101 Intelligent Commodore Interface — Allows you to 3102 Intelligent Atari Interface — Allows you to hook 
hook the 40 or 80 column printer to the Commodore 64, do the 40 ог 80 column printer to the Atari computer, do 
program listings, allows software screen dumps, etc. program listings, allows software screen dumps, etc 
Includes Commodore grophics and reverse characters. Includes Atari graphics ond reverse characters. (Specify 40 
(Specify 40 or 80 Column) List $59.95. or 80 Column) List 559.95 

40 Column Sale 59.95. 80 Column Sale $14.95. 40 Column Sale 59.95. 80 Column Sale $14.95. 


Us 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA We Love Our Customers 


Enclose Cashiers Check Money Order or Perso: Б s 
very. 2107 days for phone orders. 1 Box 550, Barrington, Illinois 60010 


VISA — MASTERCARD COD. МОСОР 1e Canada. АРОҒРО 312/382-5244 to order 
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Commodore 64 
Án MODEM Zik 


$59 $59 


List $129.95 List $129.95 


BUSINESS 2 


Complete Auto Dial 


Telecommunications Package 


"The only telecommunications package you will ever need." 
(Exclusive Easy To Use Features) 


dest ~x Total =s 
Telecommunications 


• 300 Baud Modem * Auto Dial * Auto Answer * Upload & Download 
* Membership in 52 Database Services (UPI News, etc.) 


Reach Out and Access Someone 


Telecommunications 


* Educational courses * News Updates and Information 
* Financial Information * Popular Games * Electronic Shopping 
* Banking at Home * Research and Reference Materials 


The Total Telecommonications Package offers you all this plus ... 


* Auto Log-on 
Dialing from Keyboard 


Stores on Disk Downloaded Files 

. Reads Files from Disk and Uploads Text or Program Files 

* On-line Clock Select Any Protocol (access almost any computer or modem) 
* Capture and Display High Resolution Characters Plus Much, Much More 


Download Text, Program or Data Files 5 оо 
List $129.95 Special Low-Low Price 5 9 


We are so sure this is the only telecommunications package you will need we will give you 15 days Free Trial. 


‘Add $3.00 for shipping. handling and insurance. Illinois residents g ROTECTO 
please add 6% tax. Add $6.00 for CANADA, PUERTO RICO, HAWAII 

ALASKA, APO.FPO orders. Canadian orders must be in U.S. dollars. 

WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. We Love Our Customers 
po Et Euer tefte мү eic ool Box 550, Barrington, Illinois 60010 


VISA — MASTER CARD — C.O.D. 312/382-5244 to order 


No C.O.D. to Canada, APO-FPO. 
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А membership 
а in the world's 


users' group 
will provide 
you with: 


* 10 issues of TPUG magazine 

* Advice from experts like Jim Butterfield and Elizabeth Deal 

* Access to a huge library of outstanding public domain software 

е An invitation to attend the Annual ТРОО conference, May 25 and 26 
in Toronto, Canada, with two full days of seminars on all aspects of 
Commodore computing 


JOIN NOW! 


| would like to join ТРОС as an associate member at a cost of US$2500. 
Send your cheque, money order or credit card number to: 

TPUG Inc., 

1912A Avenue Road, 

Toronto, Ontario, Canada 

М5М 4A1 


Cheque “Money Order Credit Card Amount in US. funds $ —. 


Credit Card # — — = Expiry date Signature __ 


Type of Computer || Disk Drive Printer Modem 
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JUKI 6300 
Juki Office Machine Corporation 
$995 

There is basically one word to de- 
scribe the Juki 6300: professional. It 
has every feature that a daisy wheel 
printer should, and they all work 
flawlessly. 

The 6300 prints at speeds up to 40 
characters per second bidirectional- 
ly. It will vary the pitch from 10 to 
12 to 15 characters per inch, or pro- 
portionally space text. Daisy wheels 
are readily available, for it uses the 
standard Diablo format. I found the 
print quality to be excellent. All char- 
acters were fully formed, and the 
alignment was perfect. 

Printing effects are numerous. The 
6300 will boldface, underscore, sha- 
dow print, subscript, and superscript. 
One unique feature is called high 
quality mode. Normally, the printer 
advances the ribbon a fraction of a 
space between characters. In high 
quality mode, the increment is one 
full space for each character printed. 
In addition to proportionally spacing 
text, the printer will auto-justify— 
add 1/120" spaces to the proportion- 
ally spaced text until the margins are 
reached. 

Physically, the Juki 6300 is large. 
Measuring 224 x 158 x 477 and 
weighing almost 31 pounds, this 
printer is going to need some elbow 
room. The carriage is wide enough 
to accommodate paper up to 16” in 
width, making it ideal for most bus- 
iness forms. The paper feed is by 
friction only. A tractor would be us 
ful, but I did not note any substan- 
tial paper slippage. 

The 215-раве manual includes vir- 
tually everything you need to know 
about the printer, unless, that is, you 
are a Commodore user. Operating in- 
structions are provided for virtually 
all popular computers but Commo- 
dores. Hopefully, this omission will 
be corrected soon. 

As stated earlier, this is a profes- 
Sional printer, and it has a profession- 


The Juki 6300 
daisy wheel 
printer offers 
auto-justifica- 
tion, numerous 
printing effects, 
and 40 cps 


al price: $995. While this is inexpen- 
sive for a printer of its type (intended 
for small office use), it's a little steep 
for the average user. I would not rec- 
ommend purchasing a 6300 to print 
an occasional letter, but if your in- 
terest is serious word processing or 
small business use, Ше ап ex- 
cellent choice. 

Juki Office Machine Corporation, 
299 Market Street, Saddle Brook, NJ 
07662 (phone: 201-368-3666). 

—David Barron 
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2Ist-century sequel to Blue Max. 
READER SERVICE NO. 239 


BLUE MAX 2001 
Synapse Software 
Commodore 64 
Disk; $29.95 

Bob Polin's Blue Max parlayed its 
brand of scrolling action combat into 
a slew of awards last year. Now the 
same author leaps from biplanes to 
futuristic hovercraft in this exciting 
sequel. 

Blue Max 2001 puts the computer- 
ist into the flight suit of Max Chats- 


worth IX, a remote descendant of the 
heroic aviator of Blue Max fame. The 
implacable FURXX Empire has ex- 
tended its tentacles to Earthbase 
Gamma IV. The game scenario be- 
gins just after the FURXX have con- 
quered the planet and drained the life- 
force of the survivors to lengthen the 
lifespans of imperial bigwigs. 

If the FURXX aren't stopped, their 
attack will spread to other colonies 
and eventually engulf Earth itself. 
The player must use the joystick to 
guide a single hovercraft in a desper- 
ale attack against the alien invaders. 

The flying ship is equipped with 
two super weapons capable of 
breaching the FURXX defense sys- 
tem. Тһе gravonic penetrator, fired 
by pressing the action button while 
pointing the stick in the desired car- 
dinal direction, can strafe ground in- 

allations or knock aircraft out of the 
sky. The hovercraft also carries 40 
gravonic annihilator bombs which it 
can drop on buildings, bridges, and 
vehicles. 

Two special targets merit the high- 
est priority. The diamond-shaped 
Shield Enhancer increases the hover- 
craft's defensive capabilities, The Ter- 
rain Sequencer, a disk with a rotat- 
ing core, allows the lone attacker to 
advance to the next alien hoverfield. 

Once the hovercraft takes off from. 
its field, the gamer pushes the stick 
up and to the left to start the terrain 
scrolling diagonally down the screen. 
The scrolling can be stopped by mov- 
ing the stick down and to the right. 
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Slik Load $29.95 


Slik Load is a Kartridge for the C-64. 
Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 
The options include: 


е Б times faster load * Status key will give you information оп 

• Eliminates drive rattle when errors device number, bytes free and status of the 
are encountered. drive. 

* Old and un-new. © Silk Load із also fully compatible with the 


Will restore a basic program. 1541 Super Rom 


Check tor Sync bits on any 
toar 
Drive Mo-Changes drive 
number (7-30) 


DMS-Errors 20,21, 22,23. 27 & 29 
Format Single Tracks 
Read Сак Errors 
% Track Resder-reac and select rack 
э Track Formatter-Format a dak wins DISK Logger 


маск with 
leads code under 


ТОР SECRET STUFF 


"inde starting track sector, Fast Formal-Format a disk in just 10 


E EP AGMEN Star ang end addresses. seconds (wi vert!) 
schemes re comeg om Disk Match Compare any two din 
Byte tor byte 
Drive Mon-Disk Orve assembier/is- -— - 
‘assembler For your 1541 reis DOLES This is the only utility 
peste м code 10 Check-Check (0% on any track. МА 
wiesen та т Unseen forore a semenes ne. Of its kind. It even has 


$19.95 ДЕ 


WAR GAMES (>> | KARTRIDGE KRACKER 
AUTODIALER ZX | NOWyoucanown this unique and powortui toot 


which will allow you to dump the contents of BK 


"еам а З тіп. copy on it. 


{Auto Dil wi auomatcaly dai a seo пати you ском. С) | ana rei алон you orto бый! Bui har mul 
3-Reew Numbers wil row потоне tht vere менше b à corpi ыы ы or ra iden 
3-Sor Nube wi sve runter ен а compet asp. posal MEE rath babs lone 
Aclterdeoyy el Mosirrs lp outlet ot nob where a Qus! wed CRACKER pots VOU PEDE Pe саноро Put 
S-LOAD Members val load numbers Wo onines where к Ма of C ге M IDE Же сатса ME 
Contin МА pd up dag whara was кетіре едені а оп ыы ee is 
8 and hardware needed to get started. Program оп 

29.95 Miele NEUE. $44.95 


(етгі RAM not included) 


SOFTWARE TOP SECRET STUFF II 


All C128 Compatible 


ct 10N 3rd Split Screens (Horizontally) Protect Scheme For Your Disks 


ОТЕ Smooth Scrolling Write Protect Disk 

eR Edition | зе Pam от Under Roms Unwrite Protect Disk 
No Drive Rattle On Errors Mini D.O.S. Wedge 

ANDE П H Triple Drive Head Speed Fast Diskmatcher 
‘Autobot Maker Data Statement Maker 
Koala Screen DUmp Unnew 
Display GCR 3 Minute Copy 
THIRD EDITION! NOW AVAILABLE! рана oie ад 


I you're tired of being harassed by protected software and too many сору 


programs, then this is the book for you! This 224 page manual covers the If you have TSS#1, You'll $4 995 


L T j4 y 
Foures. Now you can ват o now о protect and uris | Like This One! All on one disk 


The techniques covered include copying cartridges to tape or disk, tape pro- 
lection, and disk protection. Disk protection covers error no 's 20,21, 22, 23, 


27 and 29 plus single track formatting, header modification, header Swapp- B 

alta coca ula Ee RED te Red PRG IDE ADS Bulletin Board 

formatting illegal tracks/sectors, sync writing and more! The Third edition ex- ‘Set up and operate your own bulletin board with one 

plains, tels how to detect and how to write them with included sofware Rue m ары ав oM BM NB Monee 

Elevenusefululites and many protecton listings! Our disk analyss programs | Уоч can custome И вашу yourset 

reveal the protection methods usad on your ор. Adaketewihalson | YAUN MEGASOFT BS Елер SYSOP MESSAGES , 

Mee eint rk inum echt dives. Pea notte meta ba. | SASS easy ас МП 

RA REA DN Rs CURA CEU) toe oe DOO pau taped! А | олово енот OBRA EO) 

Жазз without Free n онц 
Boop E eret 
SEL CT Pen Ere 

ES seus [589,95 eda pam 

Book & Disk of all programs $29.95 US г 

Vic 20 book... Cart. & Tapes only $9.95 US « Leveled Access + Expert Mode 

THIS MANUAL DOES NOT CONDONE PIRACY * Private Message Base . Open Chalk Board for 


“SHIPPING: $2.00 * Up to 300 Passwords Highest Level Access 


Enclose Cashiers Check. Money Order. or Personal 
Check. Allow 14 days for delivery, 2 1o 7 days for 
phone orders Canada orders must be е US 


serene MegaSoft Limited 


Programs ler C64  s200586Honatores | P.O. Box 1080, Battle Ground, Washington 98604 
=з Phone (206) 687-5116 е BBS 687-5205 Ane mours Computer to Computer 


Sormare Submissions inv 


Reader Service No. 273 


net http://w 


Idgamesitali. 


D-Compiler 


"Blitz на trademark о! Skyles Electric Works 


The first D-Compiler to give you back your source code 
after your program has been compiled with “Blitz. 


Is 


Fast Save Load Verify 
Fast Scratch and Validate 
10 Second Format with Verity 


1541 Super ROM 


539.95 


also Save with Replace is 
Improved 


* Two times faster, Eight times faster 


when used with Turbo 64 which is included 
No more Drive Head rattling 
during Format or Error Reading 


APALLO 


APALLO Does it All. This program is the latest generation of 
сору programs. It will do everything the $39.00 and $49.00 рго- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 


* 1541 Super ROM is 100% Compatible % Easily installed in Minutes 


COPIES IT ALL 


529.95 


=) 
М5р S C * Copy Protected Disk | * Copy Unprotected Disk 
ure ору * Copy Files * Scratch a File 
* Format а Disk 95 
At last a complete utility package for the MSD Dual Drive. This « Change Disk Name * ‘Rename а File $39 
is the first MSD utility program that does it all. The тап Quit * View Directory 


Menu орол ENS; Sure Copy will ри! all errors automatically оп disk: 20, 21, 22, 23, 27 апа 29%. 


N-CODER 


the machine 
language manipulator. 


D-CODER 


* Translates any machine language program into easy- 
to-read English descriptions with complete explana- 
tions of each command! 

* Makes complete notations of all important memory 
locations accessed by the program! (SID, VIC, MOS, 
KERNAL, etc.) 

* Gives you three ways of accessing programs: 

1) Will read and list programs from DISK 
2) Will read and list programs from MEMORY! 
3) Direct user input (from magazines, etc.) 

* Can be used to locate and examine any machine 
language program's protection routines! 

* Can be used to easily break apart machine language 
programs for study and examination! 

* Printer option for complete hard copy listings! 


*19.95 | Super Loader 


Super Loader is a Kartridge that plugs into 
your expansion port, that allows the 
‘computor, on power up start the disk drive. 
and load the first preselected program on. 
the disk. 


The perfect companion Ы } 
program to D-CODER! 


Allows you to easily make changes in ma- 
chine language programs... right on the disk! | « change colors 


* Rewrite ability allows code to be altered ток nem 
and then rewritten directly to the disk! 
Features sector-by-sector scrolling 
assembly language display of machine 
language programs! 

Notation of ASCII text equibalents for easy 
Spotting of embedded text strings! 


* Works with more drive 3 


* * Takes up no memory 


You no longer / * Handy reference display of all assembly 
need to bean | language commands and their ML 
$ 1 995 EGGHEAD о | 00 numerical equivelents! $2995 
read Machine \ 7 * Byte splitter for easy splitting of decimal Only 
(Penes addresses into low byte-high byte format! 


This Disk has over 100 routines, 
some of them are routines for 
protection, smooth scrooling, modem 
routines, and sound and color 


routines. They can easily be 
incorporated into all of your programs. 


It is also fully documented. $4 9 95 
в 
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Rebels have established secret 
strongholds on the surface of Gamma 
IV. When the ship lands at a field, 
it can take on fuel, resupply its bombs 
racks, and repair damage caused by 
alien aircraft and flak guns. 

The joystick steers the ship in any 
desired direction and changes alti- 
tude. Though the hovercraft can drop 
bombs from any height, it must get 
fairly close to the ground before its 
gravonic penetrator can wreak havoc. 

The control panel located directly 
below the main display monitors the 
hovercraft status. This includes alti- 
tude, fuel supply, accumulated dam- 
age to specific ship systems, number 
of bombs remaining, and current 
score. Changes in the color of the 
play field border provide an addition- 
al visual indicator of the current 
titude range. For example, a gray bor- 
der informs the pilot that the hover- 
craft is at the proper height to strafe 
the ground. 

Better documentation would have 
improved this otherwise excellent 
program. In particular, labeled illus- 
trations of each of the major play-fea- 
tures would have greatly speeded ир 
the learning process. 

Blue Max 2001 doesn't introduce 
any startling design concepts, but it 
fulfills the essential requirements of 
а good sequel. It extends and refines 
the elements which made the original 
game popular, while it introduces 
enough new challenges to generate 
fresh excitement. 

Synapse Software, 5221 Central 
Avenue, Richmond, CA 94804 
(phone: 415-5277751). —Arnie Katz 


PLUSWRITER PRINTER 
Alphacom, Inc. 
539900 

Priced at $399, the Alphacom 
Pluswriter is yet another addition to 
the vast array of low-cost letter qual- 
ity printers available today. 

Housed in a sleek black and grey 
plastic case, the Pluswriter interfac- 
es easily to the Commodore. Alpha- 
com uses an interesting method of in- 
terfacing: an intelligent interface car- 
tridge plugs into a slot on the back 
of the printer. The cartridge is dif- 
ferent for every computer, and pro- 


REVIEWS 


vides the hardware/software link to 
make it function properly for your sit- 
uation. I experienced no problems 
listing programs or using word pro- 
cessors. In fact, the Pluswriter emu- 
lates the Diablo 630 printer, which 
makes it compatible with just about 
everything. 

When printing; the Pluswriter 
cruises at a moderate 18cps bidrec- 
tionally; painful for printing out your 
science fiction trilogy, but for most 
applications well within reason. The 
print quality is good, except for those 
occasions when characters will move 
slightly up, down, left, or right, and 
appear а bit disoriented. I didn't like 
the Courier 10 printwheel included 
with the printer so I purchased a 
more attractive daisy wheel. | was 
pleased to learn that either Qume or 
Diablo daisy wheels will work, and 
can be found most anywhere (I found 
mine at a local stationery store for 
$7.50). Ribbons are also easy to find, 
for the Pluswriter uses Diablo Hy- 
Туре П. 1 also found these locally for 
54.95. 

Since the Alphacom emulates the 
Diablo 630 many special effects are 
possible including boldface, shadow 
printing, subscripts, and superscripts. 
These all work well and are all easily 
accessible, 

The only major problem I had with 
the Pluswriter was the tendency of 
continuous tractor paper to move 
across the platen. This required con- 
stant realignment and was very an- 
noying. With single sheets I had no 
difficulties. 

The Alphacom Pluswriter is a 
competitive addition to the low priced 
daisy wheel printer market that 
should satisfy the needs of most home 
computer users. 

Alphacom, Inc., 2323 South Bas- 
com Avenue, Campbell, CA 95008 
(phone: 408-559-8000). 

—David Barron 


CALC NOW! 
Cardco, Inc. 
Commodore 64 
Disk; $39.95 

Computer industry pundits like to 
attribute the very existence of the per- 
sonal computer to a spreadsheet pro- 
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An open letter to 
the readers of Ahoy Magazine 
Vincent Kurek 
President: The Ennon Corporation 


step by step. It's surprisingly simple. 
Even the beginner can understand 


My purpose in writing is to ask 
you to join me in shaping the 
future of the new and most unusual 
field in computer technology today: 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you, for your computer 
right now, However, there is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
available to you other that through 
this offer. 

This is unfortunate but somewhat 
understandable due to the way 
technology is created, You see, only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals, These goals are 
increasing profits through more 
efficient production. While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. Тһе 
result: technology is never used to 
its fullest potential. But what's worst 
of all is that these competitve 
corporations have absolutely no 
desire 10 share technology with 
each other, let alone with you. 50, 
they don’t, As а result, the 
infinitesimal amount of technology 
that finally trickles down to you is: 


А. So expensive you are pro. 
hibited trom procurring it 

B. Shametully inferior to the 
real thing 


remember...you сап buy high-tech 
consumer goods, but never the 
technology that creates it 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with a difference: 

There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

1 have tried repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public, The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. та 


1 have met with little success. 
Apparently, it seems that immediate 
corporate profit is more important 
than sharing technology with the 
public. Therefore. the Ennon 
Corporation stands alone in 
superior Artificial Intelligence 
programming directly to the home 
computer enthusiast 

Announcing AN-8: 
The “Thinking” Program 

Believe me when 1 say AN-B3 is 
the real thing. It is a true "thinking 
program that receives an initial 

knowledge base” from a dala file 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything trom that 
and adds it to its memory 
Conversing with you, AN-83 adds 
and combines with facts already 


known. It generates new 
conclusions not explicitly contained 
in its original knowledge base—just 


like your own thinking process! The 
result: it knows considerably more 
than the specific facts given to it 
AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure 
strategy and other smart game 
playing programs to say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer. 


FREE SOFTWARE 


In addition, you will be receiving 
free, Eliza—the most amazing 
Conversational А. program to date. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program, 
Eliza will answer once and for all 
the question: What can your 
computer do? 
How to Learn 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 
for the micro, Their extensive, easy 
to understand commands walk you 
through the source code 


the “How and Why of A: 
А Fantastic Savings 

The real profit to Ennon 
Corporation will be your 
participation in the future of 
Anificial Intelligence. Therefore, | 
am pleased to say nobody will miss 
this chance because they could not 
afford it, AN-83 is priced cover 
just a fraction of its research and 
developmental costs 

The "Thinking" Program AN-B3 is 
just $21.57. What's more, the 
astounding Eliza is yours absolutely 


T guess it's obvious that | want 
you to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm but 1 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer. You just won't believe it 
Please take this opportunity now 
Simply fill out your coupon below 
and mail today. Don't miss out. It’s 
such a wonderful future of 
discovery and excitement that 
awaits you. 


With very best of wishes, 


[ Please send me the 

Thinking” Program AN-83 

for only $21.57, 

In addition, | will receive 

absolutely FREE Eliza—the 

most impressive 

conversational Artificial 

Intelligence program to date 


Available in disk only 
For use with the Commodore 64, 

Name 22 
Address 

Clty, Rem 

State Zip Code 


THE ENNON CORPORATION 
1817 W. Call St., Suite В-В 
Tallahassee, FL 32304 


Canadian orders must be in US, dollars 
Ме export to other countries. 
Commodore is a registered trademark. 
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The Alphacom Pluswriter (see review on page 66) cruises at a moderate I8cps. 
The printer emulates the Diablo 630, so many special effects are possible. 
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gram. That first spreadsheet program 
was Visicalc, which through its sym- 
biotic relationship with the Apple in- 
troduced thousands of burned-out 
Pong players to the really useful as- 
pects of computing. 

Today, more spreadsheet programs 
exist than you can shake a ledger at. 
Regardless, the market is always on 
the lookout for a better, cheaper pro- 
gram. Depending on your exact 
needs, Calc Now! from Cardco may 
be exactly that. 

Cardco began its product line with 
hardware add-ons like its numeric 
keypad. More recently, it has ex- 
panded into software with programs 
like Write Now!, a wordprocessor 
with a mail merge feature, and Graph 
Now. Cardcos latest release, Calc 
Now!, is compatible with all three. 
For the $39.95 price, you get most 
of the features of spreadsheet pro- 
grams costing much more. 

Calc Now! is a single load program 
—no disk-swapping needed. Once it's 
loaded, Cale Now! runs much like 
other spreadsheets. For details on the 
basic operations of spreadsheet pro- 
grams, pull out your May 1984 issue 
of Ahoy! and reread Terry Silverias 
comprehensive review and evalua- 
tions of ten competing products. To 
compare Calc Now! to those pro- 
grams, heres the information for 
Terry's chart of spreadsheet features: 
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Cale Now! uses the top (status) 
lines of the screen to show you the 


cell number, type, justification, con- 
tents, and format. Available formats 
are dollar, floating point, integer, 
graph (*), logical (true/false), and set 
number of decimal places. The sta- 
tus lines also tell you whether recal- 
culation will occur automatically or 
must be triggered and how much 
memory is left for your data. After 
the program is loaded, 39K is avail- 
able. If you build spreadsheets that 
are larger than this, you may need to 
consider one of the other programs 
that can link spreadsheets by allow- 
ing you to reference one spreadsheet 


in another. —— i 
Several functions are available in 


Cale Now! that work on ranges of 
cells. SUM will total the contents of 
a range of cells; AVERAGE will 
average them; MIN will find the 
smallest; MAX the largest; and 
COUNT will return the number of 
non-blank cells. Two other powerful 
and more unusual functions also 
work on ranges. GET will evaluate 
a formula, count down that number 
of cells, and return the value in the 
cell it finds. FIND will evaluate an 
expression, search through a range of 
cells until it finds a value which is 
lower, and return the value in the next 
Cell. Linked with the sort feature, 
FIND gives you a very sophisticated 
spreadsheet tool. 

Here are some one-liners on fea- 
tures I especially like. Sorting rows 
based on the contents of any column 
(or part of a column) is fast; only a 
couple of seconds even for a big 
spreadsheet. Existing cell formulas 
can be edited —you don't have to re- 
type a long formula which has an ег- 
ror near the end. Whenever you need 
to reference another cell in a formu- 
la, you can, after pressing the Brit- 
ish pound sign key, point (with the 
cursor) to the cell you want and au- 
tomatically enter its number, a nec- 
essary feature for multiscreen spread- 
sheets. You can command Calc Now! 
to move the cursor up, down, left, ог 
right when you hit return—handy 
when you change from entering col- 
umns of numbers to entering rows. 

More? Okay. Instead of printing all 
or part of your spreadsheet, you can 
choose to print all of its formulas for 


Тһе Teknika 
МА color 
monitor, like the 
1702, accepts 
separate lumi- 
nance and 
chrominance in- 
puts. Its chief 
weakness: an 
undersized speak- 
er that does not 
reproduce sound 
very well. 
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verification. (If you've ever made а 
mistake with pencil and paper, wait 
until you see what havoc you can cre- 
ate with a spreadsheet.) Individual 
cells can be protected, a handy fea- 
ture for spreadsheets used infrequent- 
ly or by someone else. Without exit- 
ing from Calc Now! you can initial- 
ize a disk, get a directory, delete or 
rename files, and specify disk and 
printer device numbers. 

That's a lot of features, but is Calc 
Now! hard to use? No, if you're at all 
familiar with spreadsheets, it's a snap. 
Even if you're not, keyboard tem- 
plates describe the uses of function 
and other command keys. Forgetful? 
Hit the help key followed by any 
command key you are unsure of. In 
an onscreen window, a description of 
that key's function will appear. The 
program I reviewed had only an І- 
page temporary manual, so I cannot 
say what the documentation will look 
like. But Cardco does provide tech- 
nical support by phone. 

My favorite, and final, help feature 
is something we all demand of our- 
selves in programs we write, but 
which is not available from spread- 
sheet programs. A non-printing com- 
ment or documentation can follow the 
contents of any cell; just start it with 
a semicolon. If you have ever tried 
to decipher one of your old spread- 
sheets, much less someone else's, 
you'll know how valuable this can be. 

Cardco, Inc., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-6525). —Richard Herring 


MJ-I10 MONITOR 
Teknika Electronics Corporation 
$279.95 

When the carton containing the 
Teknika MJ-10 appeared on my desk 
one morning for review, I thought I 
would be taking a look at just another 
monitor. І was wrong. The М/-0 
produces a surprisingly good picture, 
easily the equal of the Commodore 
1702's. This is partially due to the fact 
that the MJ-IO, like the 1702, accepts 
separate luminance and chrominance 
inputs. This helps achieve a level of 
clarity and color rendition not possi- 
ble with monitors boasting only com- 
Posite video inputs. 

On the front of the monitor are an 
exposed power switch, power light, 
and volume control. Hidden behind 
a flip-out panel are controls for hor- 
izontal position, vertical position, 
contrast, brightness, color, and tint. 
Other controls—vertical linearity, 
vertical size, horizontal hold, and in- 
put level—are on the back. 

My only complaint with the MJ-10 
has nothing to do with the video, but 
rather the audio. Its speaker is under- 
sized and does not reproduce sound 
very well. Additionally, a larger am- 
plifier and an earphone jack would 
have been useful. 

AII in all, the MJ-IO is an excel- 
lent choice in a monitor if the high- 
est possible picture quality is a must. 

Teknika Electronics Corporation, 
353 Route 46 West, Fairfield, NJ 
07006 (phone: 201-575-0380). 

— David Barron 
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MUSICWARE 
SONG BUILDER 
SONG EDITOR 
SONG PRINTER 
SOUND MAKER 
Sequential Circuits 
Commodore 64 
Disk; $39.95 each 

I was immediately impressed with 
the MusicMate keyboard from Se- 
quential Circuits. Its 32 keys have 
nice action, and the lightweight and 
sturdy construction make it ideal for 
creating music on the C-64. I was less 
than overwhelmed, though, by the 
supplied driver software, the #970 
MusicMate Musicware. It's your basic 
meat-and-potatoes program, devoid 
of any gravy. While it does what it 
was designed to do—demonstrate the 
capabilities of the keyboard by allow- 
ing you to try several different 
sounds, store your creations in RAM, 
and play them back—no provisions 
are included for saving your songs 
disk, recording i 
creating new sounds, editing, o or 
printing out your compositions. 
Clearly, the MusicMate keyboard 
would be much more valuable to 
computer musicians if it had software 
mmensurate with its own 


To fill this need, Sequential has re- 
leased the MusicWare line. They've 
taken the modular approach, where- 
by dedicated software modules have 
specific functions, and you only buy 
the particular utilities you need when 
you need them. 

The МизісИйге line consists of four 
additions to the software that comes 
with the keyboard: #971 Song Build- 
er, #972 Song Editor, #973 Song 
Printer, and #974 Sound Maker. The 
module names provide you with a 
good description of the functions. 
Let's take a look at each individually, 
as well as interactively. 


#971 SONG BUILDER 

Song Builder is the music compo- 
sition module. It allows you to enter 
your melodies, one voice at a time, 
and record them on disk. You're giv- 
en a selection of stock sounds that 
simulate a wide variety of musical in- 
struments. А metronome feature 
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а Breakthrough in Value! 


ULTRABYTE 


DISK DUPLICATORS 
with FREE BACKUP COPIES 


ULTRABYTE NOW OFFERS TWO OF THE BEST COPY 
PROGRAMS ON THE MARKET. AND BOTH COME WITH 
FREE BACKUP COPIES. 


ULTRACOPY Il 


Jim Lagerkvist's sequel to the original ULTRACOPY 64 
owned by thousands of satislied customers. 


Copies protected disks in 8 minutes on a single 1541 

Does not “hammer” the disk drive. Will not affect alignment 
Formats, copies and produces errors automatically in one step 
Features Normal Scan for reliable copies of most disks 
Includes Deep Scan with 38 track and half track capability 
Copies 99% of programs on the market 

Free backup сору -two disks for the price of one 

Technical support available by telephone 

Simple to use. Tone signals disk swaps 


ULTRABYTE DISK NIBBLER 


Uses proprietary revision of disk operating system (DOS) to make 
a bit by bit copy. This process, called nibbling, copies the format, 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built in fast load environment allows 
copies in B minutes with a single 1541 disk drive. 


Easy to use. No separate analysis or error production 
Choose 35, 36,37 or 38 tracks to copy incl. half tracks 
Makes up to 5 coples of each original — ( UNIQUE FEATURE) 
Backs up 99% of all software 

e Free backup copy -two disks for the price of one 


FREE BACKUP DISK 


UL УИ and the NIBBLER are independent products by different authors. Both 
are nt and either should meet your needs. You may order two disks of of 
product for $39.95 plus $4.00 shipping and obtain a disk of the other 
$20.00 plus $3.00 shipping. Sorry. (ree backup must be зате as disk purchased. 


FOR 2 COPIES OF EITHER 
530,55 ULTRACOPY 11 OR THE DISK NIBBLER 


plus $4.00 shipping and handling. Mastercard. Visa, Check or М.0,. Foreign orders 
or COD add $2.00. Calif, add 6.5% ($2.60) sales tax. Additional backup coples are 
37000 plus $300 shipping 


ATTENTION: Owners of ULTRACOPY or the NIBBLER whose names are In our file 
may order a single copy of ейһег product for $20.00 plus $3.00 shipping. 


Write or Call 24 Hour Order Line 
ULTRABYTE (818) 796 - 0576 
P.O. Box 789 La Canada, CA 91011 


DEALERS & DISTRIBUTORS WANTED 


Resder Service No. 252 


helps you keep time while recording 
your tracks. 

The program is menu-driven, and 
only eight keys on the C-64 are used 
for selection or advancing through the 
menu items. The MusicMate key- 
board is used exclusively for note en- 
try. The documentation booklet is 
written in a well-illustrated, easy to 
understand style. Additionally, help 
screens concisely explain how to ac- 
cess the program's functions. 

One of the most impressive aspects 
of Song Builder is its sequencing ca- 
pability, allowing you to create indi- 
vidual sections, or sequences, of mu- 
sic and treat them as individual enti- 
ties, After recording your sequences, 
you can link them in any desired or- 
der, or even change the key and tem- 
po of different sequences. This lets 
you create whole songs of any length 
quickly by treating individual song 
sections as sequences. Let's say that 
your song contains these components: 
verse 1, verse 2, chorus, verse 
chorus, chorus. To create a compl 
song, you need only record one verse 
and one chorus, then assemble them 
in the right order, since the music for 
the verses and choruses is the same 
each time they recur. What would 
Beethoven have thought of such a 
work saver? He would have loved it, 
Tm sure! 


#972 SONG EDITOR 

The Song Editor module provides 
you with the editing capability to do 
minor touchups on your songs or ma- 
jor rewrites on given measures. The 
documentation explains how to access 
its many features, and the program 
contains multiple help screens. As 
with the other MusicWare modules, 
Song Editor is entirely menu driven 
and very easy to use, requiring only 
eight of the C-64 keys for imple- 
menting functions. All note entry is 
handled through the MusicMate key- 
board. 

Possibly the most outstanding fe 
ture of Song Editor is that it automa- 
tically calculates the effects of your 
editing changes and compensates for 
them. If you alter the pitch or dura- 
tion value of any note in the compo- 
sition, Song Editor automatically 


takes care of the rests! To change апу 
note on the display, strike the correct 
note on the MusicMate keyboard and 
it will appear instantly on the staff. 
You can even change the time signa- 
tures or transpose the key with this 
program. 

Another big plus is the ability to 
step through your music one note at 
a time, or view your score one mea- 
sure at a time. The video display is 
in traditional grand-staff format, with 
signatures, notes, and rests looking 
exactly as they should. 

Song Editor is a tremendously 
powerful music editing program that 
picks up where Builder leaves off and 
carries you further down the musi- 
cal path. 


#973 SONG PRINTER 

If you have need of printed musi- 
cal scores in standard notation, Song 
Printer will allow you to print out 
sheet music of your songs, and even 
give you the options of which voices 
to print. Consistent with the other 
products in the MusicWare line, it is 
menu-driven and easy to use. The 
program is accompanied by excellent 
documentation, and help screens are 
included, 

Song Printer will work with the 
Commodore 1525, 801, or other com- 
patible dot matrix printers suitably in- 
terfaced. Because the music symbols 
and graphics must be created, letter- 
quality or daisy wheel printers won't 
work. 

In addition to printing out excel- 
lent quality music scores, Song Print- 
er allows you to choose the melody 
line(s) to be printed. This is particu- 
larly useful for learning harmony 
parts in vocal arrangements, where- 
by the soprano, alto, and tenor may 
each have a score with their particu- 
lar parts on it. The piano 
ist, however, may util 
showing all three parts. This 
print option to have, and Song Print- 
er is, to my knowledge, the only mu- 
sic printing program that allows this 
sort of flexibility. 


#974 SOUND MAKER 
Your C-645 SID chip is capable of 
creating some awesome sounds, and 


http 
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the Sound Maker module makes such 
sonic tailoring easy. The program 
disk contains twenty musical instru- 
ment sounds and sound effects which 
you may alter to your heart's content. 
Included are several help screens that 
explain the functions of the control 
settings; additionally, the documen- 
tation expands on this information. 

Sound Maker also provides you 
with a novel video display while crea- 


programs which rely on bar or nu- 
meric setting displays, you get a sim- 
ulated analog control display that de- 
picts knobs for adjusting sound quali- 
ties. This feature really imparts the 
feel of a traditional electronic music 
synthesizer to the program. Another 
nice wrinkle is the ability to select 
different octaves for the sound, in 
addition to “tweaking” the bass, tre- 
ble, or a combination of the two. 

You can try out your sounds as you 
create them by using the MusicMate 
keyboard with the program. And 
when you've created one you particu- 
larly like, you can store it on diskette 
for use with other programs in the 
MusicWare line. 


SUMMARY 

All the MusicWare modules reflect 
a lot of thought on the part of their 
designers. They're very easy to u: 
even for the computer music nov. 
they perform flawlessly, and they are 
all interactively compatible. “Тһе 
modular software approach allows 
you 40 purchase specific-capabi 
features as your needs dictate, and 
combining these MusicWare modules 
produces a full-featured music pack- 
age that's hard to beat. 

Sequential Circuits, Inc., 3051 
North First Street, San Jose, CA 
95134 (phone: 408-946-5240). 

—Tom Benford 


PROMAL 
Systems Management Associates 
Commodore 64 
Disk; $4995 

BASIC, stand aside. A new gener- 
ation of computer languages has ar- 
rived and is taking over. And, of the 
structured languages, PROMAL is 
one of the very best. 


www.oldgamesitalia.net 


10 DISKETTES 


FREE, C-20 CASSETTES 


А Subscription to the "Cassette of the 
Month’ gets you a tape or disk full of 1 
quality Commodore 64 programs deliv- 
Sd you by fet clase all every month 
The documentation included will help you 
тип great utilities like "Word Processor,’ 
апа “Budget Analyzer’ or enjoy great 
mes like 'Frogjump' and ‘Caterpillar 
ave FOR AS LITTLE AS 50 CENTS 
EA 


сн! 


ж Limited offer x Subscribe for a year 
on cassette and receive 20 Free С-20 cas- 
settes or subscribe for a year on disk and 
seid " i Бу single sided double 
8) Чез! 
zu RICES— 
TAPE DISK] 
|'YR(T2ISSUES) бре 75%) 
|М0/655М65) 39% 45%) 
Copes 74%) 
* Wevebeeninbusmesslo wen Res к 445. 
over three years! Overseas ADO $10 c subscnption | 
Қы) места rT teme 
computer owners PERSONAL CHECKS WELCOME! 
% Commodore 64 required 
таррак Software. 
HOLLAND, MI 49423. 
ТЕСЕ. > 


Reader Service No. 283 


FOR 
NEW commodore 


ww 64/128 
E-FlLESG д. 


А VERSATILE ELECTRONIC CARD 


CUSTOMIZED FILES. 

SEARCH/ MAIL LIST/LABELS. 

3 DRAWERS/ 200 REC/DRAWER. 
ON DISK ONLY.. $20.95 


PageWriter 
ea 


EASY TO USE, LOW COST WORD 
PROCESSING. 80 COLUMN TEXT. 
|MINDOM. FULL TEXT EDITING, 
EASY MAILMERGE (DISK). 

DISK $21.95 САБ $18.95 


CHECK/MONEY ORDER «$2.00 SHIPPING 
N.Y. RES. ADD SALES TAX. 


VMC oaan 


Р.0. BOX 326 
CAMBRIA ГН? N.Y. 


Reader Service No. 254 


AHOY! 71 


http://www.oldga 


nesitalia.ne' 


http: 


PROMAL makes a compromise 
between the loose syntax of BASIC 
and the intense structure of LISP- 
type languages. PROMAL is proce- 
dure-oriented, which means that pro- 
grams are written in little modules, 
each of which performs a specific 
task. АП of the small units of code 
are then called by a main procedure 
(program), in a structure which re- 
sembles BASIC *GOSUB-RETURN"- 
called subroutines. 

There are two types of modules in 
PROMAL: procedures and functions. 
When called, functions return a val- 
ue (data or a Boolean). Procedures 
are series of program commands, 
which return no value. Within a mod- 
ule, local variables may be defined. 
In fact, modules may even be defined 
recursively with up to 256 levels of 
nesting. All modules may be sent аг- 
guments (data) on which to perform 
operations. The data structures in 
PROMAL are similar to those in 
BASIC, with the exception of Boo- 
lean data. 

Boolean data аге the values TRUE 
and FALSE which may be assigned 
to a variable or be returned as the 
result of the evaluation of an ex- 
pression. One example of an expres- 
sion which returns a Boolean when 
evaluated is the CMPSTR function. 
CMPSTR compares two strings in 
relationship to ап operator 
(<,<=,<>,=,>=,>). Ifthe re- 
lationship is true (e.g. A<B), the 
CMPSTR returns TRUE, else 
FALSE. 

PROMAL also has a very differ- 
ent way of treating command words. 
All programs, including the main 
program and all modules, are given 
names and told what arguments are 
needed for proper operation when 
initially defined. To execute a pro- 
gram, only the use of the name and 
inclusion of argument values аге пес- 
essary. In a way, definition of a mod- 
ule is the same as creating a new 
command. It is even possible to cre- 
ate a whole range of sound and col- 
or commands, avoiding the annoy- 
ance of POKEing all those values into 
memory. 

However, in terms of syntax of in- 
dividual statements, PROMAL and 
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BASIC vary by very little. The basic 
assignment primative is the = oper- 
ator (a primitive is an element of a 
computer language which is origin- 
ally written in machine language, as 
opposed to modules—written in 
PROMAL). The conditional con- 
structs are IF-ELSE, IF-THEN, and 
CHOOSE. The looping constructs 
are WHILE, REPEAT-UNTIL, and 
FOR. 

The most interesting and useful 
new primative is the ESCAPE- 
REFUGE construct. When an error 
occurs in a module called by another 
module, it is often desirable to return 
to the original module and restore all 
variables to their original state. Us- 
ing REFUGE, it is possible to define 
three places and states to which the 
program may return and “recover” 
from a disaster. Each REFUGE is 
given a number from one to three. 
When an ESCAPE command is exe- 
cuted, the refuge number is specified 
and all state variables are restored at 
the location corresponding to the ap- 
propriate refuge. 

PROMAL statements, unlike those 
in BASIC, have no line numbers, may 
only occupy one line, and must have 
spaces between keywords and vari- 
ables. However, these small incon- 
veniences are more than compensated 
for by the fact that PROMAL is a 
compiled language. There are two 
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fundamental types of languages, in- 
terpreted and compiled. BASIC is in- 
terpreted. Interpreted languages are 
evaluated sequentially, as individual 
lines are executed. This is under- 
standably slow. Compiled languages 
are evaluated into machine language 
in one large translation effort and 
stored in machine language form in 
an object file, on disk. Then, when 
the object file is executed, it is as if 
the program was originally written in 
machine language. However, the us- 
ual problem which arises with com- 
piled languages is that the original 
program must be written into a docu- 
ment file, through a separate word 
processing program. PROMAL ful- 
ly supports creation of document 
source files by supplying a built-in 
editor. An EXECUTIVE (operating 
system) is also included, completing 
the PROMAL environment. 

As an introduction to structured 
programming languages and as an al- 
ternative to BASIC, PROMAL is well 
worth the time needed to learn it and 
the 549.95 to purchase it. Systems 
Management Associates deserves a 
round of applause for greatly extend- 
ing the computing powers of the 
Commodore 64. 

Systems Management Associates, 
3700 Computer Drive, PO. Box 
20025, Raleigh, NC 27619 (phone: 
919-787-1703). — Rachel Schleimer 


ERRATUM 


On page 107 of our April '85 issue, we listed incorrect last byte 
information for the BASIC Trace program. The correct last byte 


is СТРА. To enter it, load your version of Trace (8,1), then load 
and run Flankspeed. Enter first and (correct) last byte, hit f5, 
and continue from address C1F8. After typing in the last line, 


save the program. 


If youre in need of a square meal, we can't help you. But if it's publicity you're 
starved for, we've got just the ticket. In future issues, Ahoy! will feature a gallery 
of the finest computer graphics our readers can generate. 

We invite you to send your best work on disk, accompanied by a stamped and 
self-addressed mailer, to Morton Kevelson, P.O. Box 260, Homecrest Station, 
Brooklyn, NY 11229. Indicate the drawing package that was used to create the 
image. If you employed a bit map of your own design, indicate the appropriate 


file parameters, i. 


, hi-res or multicolor, location of bit map, screen and color data. 


Send along your latest masterpiece today Who knows who might be reading? 


oldgamesitalia.net. 
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SCREEN DUMPING 


ON 
THE 


COMMODORE 64 


ooner or later every pro- 

grammer with an interest in 

computer graphics will tap 

the versatility of bit mapped 
graphics. The program described 
here will serve not only as a primer 
on the creation of screen bit graph- 
ics, but will also allow reproduction 
of the screen image on your printer. 
In addition, if you study the program 
(see page 107) carefully you will learn 
something about memory manage- 
ment on the Commodore 64, as well 
as experiencing the dramatic effect of 
machine language on the speed of ex- 
ecution of the program. 

The program requires an 8-pin dot 
matrix printer with bit graphics ca- 
pability. It was written for use on сі- 
ther a Gemini 10 or 10Х, using a 
standard Centronics serial to paral- 
lel interface; use with other 8-bit 
graphics printers will require some 
modification. 


SCREEN BIT GRAPHICS 
First, let's examine how bit graph- 
ics are generated on the monitor 
screen. Each standard screen char- 
acter comprises an 8 dot by 8 dot (64 
pixel) array. If we multiply this by 40 


Не ИЕН 
GETTING 
SCREEN BIT 
GRAPHICS 
TO YOUR 
PRINTER 
WITH 
HELPFROM 
MACHINE 
LANGUAGE 
Кын =... 


BY ROGER S. MACOMBER 
PROFESSOR OF CHEMISTRY 
UNIVERSITY OF CINCINNATI 


characters per row and 25 rows, we 
are 64,000 total pixels (320 
y 200 down), each of which 
can be separately activated to form. 
the screen image. Because each pixel 
is turned on or off Ву a 1 or 0 (a sin- 
gle bit) in the appropriate character 
memory location, the most direct ap- 
proach is to manipulate 8 pixels at a 
time as one byte of memory. 

The basic idea behind creation of 
a screen image is depicted in Figure 


1 (see page 74). By examining the 
"zeroth" byte of character memory 
(hereafter referred to as the bit map), 
we see that pixel number 1 is con- 
trolled by bit 7, pixel 2 by bit 6, etc. 
Thus, for any of the possible num- 
bers from 0 to 255 which may be 
stored in a byte. generate a dif- 
ferent pattern of activated pixels. The 
entire screen will require 8000 bytes, 
arranged as shown in Figure 2 (see 
page 74). Е 

Let's examine version I of the pro- 
gram through line 180. In order to al- 
low for later expansion of the BASIC 
program without overwriting screen 
memory, you should carry out the 
POKEs described in line 1. This 
moves the beginning of the BASIC 
program to memory location 16384 
($4000). Next (line 20) we select an 
8K block of memory beginning at lo- 
cation 8192 ($2000) for the bit map. 
The POKE tells (һе VIC-II chip 
where to find the bit map and screen 
memory. Line 25 activates the screen 
bit mode. Line 30 clears the 8000 
bytes of the bit map, a process that 
takes over a minute in BASIC. As we 
will see later, it is nearly instantan- 
eous in assembly language. Line 40 
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the upper-left-most pixel.) Lines 150 


of Bit Map Pixels of Screen through 165 determine which byte of 
bit# 76543210 the bit map (Figure 2) will contain 
olo[olo[olo[ojol- o the data for each point, while line 170 
| OOO000000 determines which bit of the byte 
o[o[o[o[o[o[o[1]» 1 ОООООООФӨ should be activated. For example, 
consider the point X = 6, Y = 8 
o[1]o[1[o[1]o[1]- 85 ОФОФСОФСӨ (shaded pixel in Figure 2). This cor- 
ІП ШЕ REPERERÉR 69900090 responds to LINE 0 of CHARAC- 
Figure 1 Contents of Decimal Printed 
The correspondence between the bit map and its screen image. O and Printer Byte Equivalent Image 
represent deactivated and activated pixels, respectively. The bit im- т |0 Q 
age to the right results from the four different values stored in the corre- 6 |0 (2) 
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: 4 о © 
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character, the lower 4 bits control the calling that our screen image і3200 * 
color of the deactivated pixel (0 = pixels wide and 200 pixels high, we 50 O 
black, 1 = white, 2 = red, еїс.). generate a set of X, Y points which 0 [9] 
Thus, a 1 (00000001) results in а — describe the function in lines 100 and 0 © 
white background and black dots. 105. (Y = 0, X = 0 corresponds to 0 1 O 
0 © 
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byte # 012 319 


9 
1 
1 
1 
1 
1 
680 | 
а Figure 4 
Тһе arrangement of bit map memory 
for the printer. 


320 63 


Eee 


1 


TER 0 in ROW 1. Since there аге 320 
bytes per row (see Figure 2), and 8 
bytes per character, the location of the 
appropriate byte is 8192 + 1320 + 
0*8 + 0 = 8512. Line 170 deter- 
mines that bit 1 (seven over from the 
left; see Figure 1) will receive the “I”. 
Line 175 makes the appropriate 
POKE, and the point appears on the 
screen. Line 180 sends us back to cal- 
culate the next point, and this con- 
tinues until the X domain has been 
exhausted. 


BIT GRAPHICS ON 
YOUR PRINTER 

Your Gemini ЮХ (with interface 
in transparent mode) can be used to 
create printed pictures in a manner 
quite analogous to screen bit graph- 
ics. The main difference is in the way 
the bit map is accessed by the print- 
er. The printer prints one row at a 
time with the height of each row de- 
termined by the number of pins in the 
print head. An 8-pin print head can 
print any combination of zero to 8 
dots (vertically aligned), as shown in 
Figure 3. Comparison of this with 
Figure 1 shows that the bit map for 


a printer must be arranged different- 
ly (Figure 4) than the screen bit map 
(Figure 2). If you are doing printed 
bit graphics directly, you can plan 
your memory setup to correspond to 
Figure 4. The problem we have, how- 
ever, is to take a screen image stored 
as in Figure 2, and make it accessi- 
ble, bit by bit, as shown in Figure 4. 
Thus, to create the "zeroth" printer 
byte, we need the 7th bit of each of 


the first 8 bytes of the screen bit map, 
each multiplied by the appropriate 
power of 2. Printer byte 1 comes 
from the 6th bit of each of the first 
8 bytes of the bit map, and so on. 

Now let's look at the rest of ver- 
sion 1. Line 190 starts the printing se- 
quence when you depress the fl key 
on the Commodore keyboard. Lines 
205 and 210 activate the printer and 
set the linefeed length to 16/144". 
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Lines 215 and 220 draw а horizontal 
border, indented one inch. The ac- 
tual printing takes place in a loop of 
instructions 225-270. For each printed 
row (8 dots high) the high resolution 
bit mode is activated (225), then a 
one inch margin is created, marked 
with a“ | " [CHRS(245) іп 230]. 
Next, in a series of nested loops (lines 
235-265), an entire row is assembled 
and printed byte by byte from the 
screen bit map. To discover how this 
section works, I recommend setting 
up a sample “character” (8 horizon- 
tally stacked bytes of the screen bit 
map) and carry through the process 
by hand to create the corresponding 
8 sequential vertical bytes of the 
printer bit map. Note also that each 
byte is printed twice (line 255) to im- 
prove clarity. At the end of the row 
another * | " is printed (line 265) 
and we return to assemble the next 
row. After the 25th row (L = 24) we 
draw another indented horizontal line 
(line 275, 280), and finally close up. 
shop. 

Now that you understand how it 
works, save it and run it. Dont for- 
get the preliminary POKEs! Right 
before your eyes you will see the bit 
map zeroed (about 70 seconds), the 
field turned white (all pixels are de- 
activated, remember?), and black 
dots describing the function begin- 
ning to appear. After the screen has 
filled (about 2 minutes), press fl. 
Now the wait begins, because each 
printed line requires over 2 minutes 
to be assembled, making the entire 
plot an hour-long process! The final 


printed result is shown in Figure 5. 


A LITTLE HELP FROM 
ASSEMBLY LANGUAGE 

It would certain be preferable to 
have the image printed in a matter of 
seconds rather than hours. Fortunate- 
ly, this can be readily accomplished 
using machine language for the time- 
consuming loops (lines 230 through 
265) as well as the task of clearing 
the bit map (line 30) and setting col- 
ors (line 40). Using the technique of 
appending machine code at the end 
of our BASIC program, we now gen- 
erate version II of the program as 
follows: 

1) delete lines 20-40, and 225-265 
from version I 

2) add lines 5, 30, 195, 200, 225, 
230 and 265 of version II 

3) by PEEKing in 45 (40) and 46 
(67), we note the location of the end 
of the BASIC program is at 17192. 
Now, POKE 45, 250 to extend the. 
memory allocation by 210 bytes, 
more than enough to accommodate 
the machine code. 

4) add the following instruction: 


10 FORI-0 TO 206:INPUTB%:P 
OKES1+I,B%:NEXT:STOP 


5) run the program, and enter the 
207 bytes of machine code, one by 
one, as listed at the end of version 
II. Do it slowly and carefully!* 

6) delete line 10 

Now save version II, and run it. 
Notice anything different? First, the 
bit map is cleared and the screen 


Figure 5 


turns white instantly. But the big 
change comes when you hit fl to print 
the screen image. Now each line is 
assembled almost as fast as the print- 
er can print it. The entire bit map is 
assembled and printed in one min- 
ute (see Figure 5)! So, you now have 
the capability to create whatever type 
of bit map you desire on the screen 
by modifying the portion of the pro- 
gram between lines 100 and 150. And 
then you can print the screen image 
as hard copy. (For another applica- 
tion of this program, see the follow- 
up article next month.) 


*Should you ever want to print the ma- 
chine code at the end of your program, 
use the following sequence: 


7 OPEN4,4,2:CMD4:J=0 

9 ҒОКІ-0 TO 206:PRINT PEEK 
($141); :JeJ+1 

11 IF J > 15 THEN PRINT CH 
89(10);: 7-0 

13 NEXT:PRINT#4, :CLOSE4:ST 
OP 


A WORD ABOUT THE 
MACHINE CODE 

If you're interested in how the ma- 
chine code does its job, disassem- 
bling the program and studying the 
assembly language is recommended. 
The first 31 lines accomplish the 
clearing of the bit map and setting 
screen color. Note that locations 251 
(SFB) and 252 ($FC) are used as zero 
page indirect addresses to the bit 
map. 

The assembling of lines for the 
printer is more complicated, and be- 
gins in line 32. Again locations 251 
and 252 are used as indirect point- 
ers for the section of memory being 
assembled (see line 195 in version II). 
Also, a table of powers of 2 is stored 
in 2048-2055 ($0800-$0807); see line 
200 of version II. A step-by-step an- 
alysis of this program, though beyond 
the scope of this paper, would show 
that it accomplishes all the same 
things as lines 230-265 in the origin- 
al version, but the machine code ex- 
ecutes over 100 times faster! For 
those starting their foray into machine 
language programming, I recommend 
this as an instructive example. O 
SEE PROGRAM LISTING ON PAGE 107 


COMMODCORBI: ROCTS 


UNDER THE: HOOD 


An Inside Look At Your Commodores Microprocessor 


By Mark 


very computer can be divided into three main 

parts: a memory (often subdivided into RAM 

and ROM), input and output devices (such as 

keyboards, video monitors, cassette record- 
ers, and disk drives), and a central processing unit, or 
CPU. 

In a microcomputer such as the Commodore 64, all 
the functions of a CPU are contained in a microproces- 
sor unit (sometimes abbreviated MPU). And your Com- 
modore’s MPU is a very large scale integrated circuit 
(VLSI) called the 6510. In this column, we're going to 
peek inside the 6510 chip and see what makes it go. 

The 6510 microprocessor, an improved version of the 
6502 chip used in Apple and Atari computers, contains 
seven main parts: an arithmetic-logical unit (ALU) and 
six addressable registers. 

The ALU is one of the most important components 
of the 6510 chip. Every time the 6510 performs a calcu- 
lation or a logical operation, the ALU is where all the 
work is done. 

The ALU can actually perform only two kinds of cal- 
culations: addition and subtraction. Division and multi- 
plication problems can also be solved by the ALU, but 
only in sequences of addition and subtraction operations. 

The ALU can compare values, too — but only by sub- 
tracting one value from the other. By performing a sub- 
traction operation, the ALU can determine whether one 
number is larger than the other, or the two numbers are 
the same. 

When two numbers are to be added, subtracted, or 
compared, both are fed into the ALU, along with a sim- 
ple three-letter instruction called a mnemonic. When the 
requested calculation has been performed, its result is 
left in a special 6510 register called an accumulator. Once 
а value is stored in the 65105 accumulator, it can be moved 
into any other 6510 register, or any register in your Com- 
modores memory. 

Now well look at how the ALU and the accumulator 
in the 6510 chip work together. Suppose you wanted your 
computer to add 2 and 2, then place the result into a cer- 
tain memory register. You could use an assembly lan- 
guage routine like this: 
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LDA 402 
АРС #02 
$ТА $ЕВ 

The first instruction in this routine, “LDA”, means “load 
the accumulator” (with the value that follows). In this 
case, that value is 2. The “#” sign that is in front of the 
2 means that the 2 is to be interpreted as a literal number, 
rather than as the address of a memory location in your 
computer. 

The second instruction in the routine, “АРС”, means 
"add with carry.” In this addition problem, there is no 
number to be carried, so the “carry” part of the instruc- 
tion has no effect here, and all the ADC instruction does 
is add 2 and 2. 

The third and last instruction in our routine, “STA’, 
means "store the contents of the accumulator" (in the 
memory address that follows). 

As you can see, the memory address that follows the 
instruction “STA” is $FB—the hexadecimal equivalent of 
the decimal number 251. 

Since there is no “#7 sign in front of the hex number 
SFB, your assembler will not interpret $FB as a literal 
number. Instead, $FB will be interpreted as a memory 
address—and your Commodore will store the sum of 2 
and 2 in Memory Register $FB. 

(Incidentally, if you did want your assembler to inter- 
pret 5ЕВ as a literal number, you would have to write 
it “#$ЕВ^ When both a “27” symbol and a dollar sign ap- 
pear before a number, it is interpreted as a literal hexa- 
decimal number.) 

If the third line of our routine read “STA #$ЕВ”, how- 
ever, that would be a syntax error— because "STA" (store 
the contents of the accumulator in...) is an instruction 
that must be followed by a value that can be interpreted 
as a memory address, not by a literal number. 

Besides the accumulator, the 6510 processor has five 
other registers: the X Register, the Y Register, the Pro- 
gram Counter, the Stack Pointer, and the Processor Sta- 
tus Register. Here is a brief summation of the functions 
of each: 

* The X Register (abbreviated *X") is an 8-bit regis- 
ter often used for temporary storage of data during a pro- 
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gram. But it has a special feature: it can be incremented 
and decremented with a pair of one-byte assembly lan- 
guage instructions (INX and DEX). It is therefore often 
used as an index register, or counter, during loops and 
read/data-type instructions in programs. 

е The Y Register (abbreviated “Ү?) is also an 8-bit reg- 
ister, and can also be incremented and decremented with 
à pair of one-byte instructions (INY and DEY). So, like 
the X Register, it is used both for data storage and as 
а counter. 

е The Program Counter (abbreviated “РСТ) is a pair 
of 8-bit registers used together as one 16-bit register. The 
two 8-bit registers are sometimes referred to as “Program 
Counter-Low (PCL)” and “Program Counter-High 
(РСН)” 

The program counter always contains the 16-bit mem- 
огу address of the next instruction to be executed by the 
6510 processor. When that instruction has been carried 
out, the address of the next instruction is loaded into the 
program counter. 

е The Stack Pointer (abbreviated "S" or "SP") is ап 
8-bit register that always contains the address of the top 
element in a block of RAM, called the hardware stack 
(usually called simply “the stack"). This is a segment of 
memory in which data is often stored temporarily dur- 
ing the execution of a program. We'll go into more de- 
tail about how the stack works later on. 

* The Processor Status Register (usually called just 
the "status register; but abbreviated “Р”) is an 8-bit reg- 
ister that keeps track of the results of operations per- 
formed by the 6510 processor. 


THE PROCESSOR STATUS REGISTER 

The processor status register is different from the other 
registers in the 6510 microprocessor. It isn't used for stor- 
ing ordinary 8-bit numbers, as the others are. Instead, 
it uses its bits as flags to keep track of several kinds of 
important information. 

Four of the status register's bits are called status flags: 
the carry flag (C), the overflow flag (V), the negative 
flag (N), and the zero flag (Z). These are used to keep 
track of the results of operations being carried out by 
the other registers inside the 6510 processor. 

Three of the P register's other bits, called condition 
flags, are used to determine whether certain conditions 
exist in a program. These three bits are the interrupt dis- 
able flag (I), the break flag (B), and the decimal mode 
flag (D). 

An eighth bit in the status register is not used. 


THE PROCESSOR STATUS FLAG 

The processor status register can be visualized as а 
rectangular box containing six square compartments. 
Each *compartment" in the box is actually a bit, and each 
bit is used as a flag. 

If a given bit is a “I” instead of a "07 it is said to be 
a flag that is set. 

If a given bit is а “07 instead of a 17 it is said to be 
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a flag that is cleared. 

The bits in the 6510 status register— like the bits in all 
8-bit registers —are customarily numbered from 0 to 7. 
The rightmost bit is Bit 0, the leftmost is Bit 7. 

THE PROCESSOR STATUS REGISTER 


BITS S Xe SO а-н a 06 
FLAGS N Vi - B 


Following is a complete list of the flags in the 6510's 
processor status register, and an explanation of each. 

Bit 0—The Carry Flag (C): As you'll recall from last 
month, it isn't easy to do 16-bit arithmetic with an 8-bit 
chip like the 6510. When the 6510 chip is required to per- 
form an addition operation on a number greater than 255 
—or if the result of a calculation might be greater than 
255—a program has to be written that will break each 
number down into 8-bit segments for processing, and will 
then patch all of the numbers back together. 

This kind of mathematical cutting and pasting involves 
a lot of carrying (during addition) and borrowing (dur- 
ing subtraction). And the carry flag of the 6510 P regis- 
ter is the flag that keeps up with all of this carrying and 
borrowing. If an addition operation results in a carry, 
the carry flag is automatically set; if a subtraction oper- 
ation requires a borrow, the carry flag notes that, too. 

Since the carry flag is almost constantly being set and 
cleared as a result of carries and borrows in addition and 
subtraction, it's a good idea to clear it before an addi- 
tion operation is to be carried out—and to se it before 
а subtraction operation takes place. Otherwise, your cal- 
culations may be messed up by the leftover results of pre- 
vious operations. 

The assembly language instruction that clears the P 
register's carry bit is CLC, which stands for “clear carry.” 
The instruction that sets the carry bit is SEC, which stands 
for “set carry” 

Bit 1—The Zero Flag (Z): When the result of an arith- 
metical or logical operation is zero, the status register's 
zero flag is automatically set. Addition, subtraction, and 
logical operations can all result in changes in the status 
of the zero flag. If a memory location or an index regis 
ter is decremented to zero, that will also result in a set 
zero flag. 

An ironic 6510 convention is that when the result of 
an operation is zero, the zero flag is ser to 1, and when 
the result of an operation is not zero, the zero flag is 
cleared to 0. It's important to understand this concept, 
since it would be easy to assume that the zero flag oper- 
ates in the opposite manner. 

There are no assembly language instructions to clear 
or set the zero flag. It's strictly a "read" bit, so instruc- 
tions to write to it are not provided. 

Bit 2—The Interrupt Disable Flag (I): Some Com- 
modore programs contain interrupts — instructions that 
halt operations temporarily so that other operations can 
take place. Some of these are called maskable interrupts 
because you can prevent them from taking place by in- 
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cluding *masking" instructions in a program. Others аге 
called nonmaskable because you can't stop them from 
taking place, no matter what you do. 

You can disable a maskable interrupt with the P reg- 
ister's interrupt disable flag. When it is maskable in- 
terrupts are not permitted; when it they are. 

The assembly language instruction to clear the inter- 
rupt flag is CLI. The instruction to set the interrupt flag 
is SEI. 

Bit 3—The Decimal Mode Flag (D): The 6510 proces- 
sor normally operates in binary mode, using standard 
binary numbers of the type discussed last month. But 
the 6510 can also operate in what is known as a binary- 
coded decimal (or BCD) mode. To put the 6510 into BCD 
mode, you have to set the decimal flag of the 6510 status 
register. 

BCD arithmetic is slower than plain binary arithmetic, 
and it consumes more memory. But its results, unlike 
those of plain binary arithmetic, are always 100% accur- 
ate. So it is often used in programs in which accuracy 
is more important than speed or memory efficiency. 

The assembly language instruction that clears the deci- 
mal flag is CLD. The instruction that sets the flag is SED. 

Bit 4—The Break Flag (B): The break flag is set by 
а special assembly language instruction, ВЕК. Program- 
mers often use the break instruction while debugging. 
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When the instruction is used and the break flag is set, 
certain error-flagging operations take place and control 
of the computer returns to the programmer. 

Bit 5— Unused: For some reason, the microprogram- 
mers who designed the 6510 status register left one bit 
unused. This is the one. 

Bit 6—The Overflow Flag (V): The overflow flag is 
used to detect an overflow from Bit 6 (the next-to-left- 
most bit) in a binary number. If you don't know what 
that means yet, don't be concerned. The overflow flag 
is used primarily in advanced 6510 arithmetic — speci 
cally, to keep track of changes in the plus and minus signs 
of signed numbers when signed binary arithmetic is be- 
ing performed. As a beginning- or intermediate-level 
Commodore assembly language programmer, you'll rarely 
—if ever—have occasion to use the overflow flag. Nev- 
ertheless, we'll discuss it at length in a later column. 

The assembly language instruction that clears the over- 
flow flag is CLV. There is no instruction to set the flag, 
since it's read-only. 

Bit 7-Тһе Negative Flag (М): The negative flag is 
set when the result of an operation is negative, and cleared 
when the result is zero. It is often used in operations in- 
volving signed numbers, and has other uses that will be 
discussed in later columns. There are no instructions to 
set or clear the negative flag; there is no need for any, 
since the flag is used for test purposes only. 


PROGRAM: THE 6510 SIMULATOR 

То give you a closeup look at what happens inside your 
computer when it runs an assembly language program, 
Tve created a BASIC program called the 65/0 Simulator 
(see page 98). It is not a machine language assembler, 
but it works much like one. When you load it and run 
it, it will present you with a screen display that will show 
you exactly what happens inside your 6510 chips X, Y, 
and P registers when your computer is running an as- 
sembly language program. 

To use the 65/0 Simulator, all you have to do is type 
in legal statements written in assembly language. You can 
use it with any of the instructions mentioned in this col- 
umn, and with all other instructions that are legal in 6502/ 
6510 assembly language. The simulator will not accept 
labels or indirect addressing modes (two more topics that 
will be discussed in later columns). It will also reject 
statements that contain incorrect spacing, syntax errors, 
illegal address modes, and unacceptably long numbers. 
And, although it can read memory locations, it can’t write 
to them. So it cant freeze up your computer while you're 
testing out a program. 

The 6510 Simulator is a rather long and complex рго- 
gram, but well worth the time it will take to type it. If 
an assembly language routine won't work correctly, the 
6510 Simulator will often show you exactly what's going 
wrong. So please type it and save it (or purchase this 
month's Ahoy! disk or cassette). By the time we get to 
later columns іп this series, you'll be glad you did. O 

SEE PROGRAM LISTING ON PAGE 98 


СОММОПАВЕЗ 


PROGRAMMING CHALLENGES 
By Dale Rupert 


ach month, well present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 


Commodares clo Ahoy! 
РО. Box 723 


Bethel, СТ 06801 


We will print the most interesting and/or unusual solu- 
tions. Be sure to identify the name and number of the 
problems you are solving. Also show sample runs if pos- 
sible, where appropriate. Programs on diskettes are wel- 
come, but they must be accompanied by listings. Also 
tell what makes your solutions unique or interesting, if 
they are. You must enclose a stamped, self-addressed en- 
velope if you want any of your materials returned. 

Your original programming problems, suggestions, and 
ideas are equally welcome! The best ones will become 
Commodares. 


Problem #18-1: Cycling Function 

Jim Speers (Niles, MI) suggested this problem. Com- 
plete the function definition in line 10 so that the output 
in line 30 will cycle from 0 to 100 and back again in 
steps of 5. Perhaps a little head scratching is in order. 


10 DEF FNC(D)=... 

20 D=5 : X= 

30 PRINT X : X=X+D : D=FNC(D) : GOTO 30 
Jim sent some general purpose cycling functions which 

we will reveal next month. 


PL ситса оловна 
Problem #18-2: Billiard Balls 


Wallace Leeker (Lemay, MO) has sent his solution to 
the classic Ба: ll problem. A warning before you 
start on this one: it's addictive and time consuming. Неге 
it is: 

You have twelve billiard balls, all identical in appear- 
ance. One has an internal flaw, making it either heavier 
or lighter than the other eleven. The computer has a sim- 
ple balance scale and is allowed only three weighings 
in order to determine which is the flawed ball. 

The user will decide which of the balls, numbered 1 
through 12, is the culprit. The computer will select a 
combination of balls to put onto the balance (some on 
the left side and some on the right). The user will then 
tell the computer whether the scale is a) heavy on the 


left, b) balanced, or c) heavy on the right. The compu- 
ter will repeat this sequence two more times. After the 
user's third response, the computer will tell which ball 
is different and whether it is heavy or light. 

If some of you end up dreaming about billiard balls, 
don't say we didn't warn you. 


[d 
Problem #18-3: Scroll Ski 


Use the Commodore's screen scrolling to create a 
downhill skiing game. One simple catch: your program 
must be only one or two lines long. As easy as that! 


[AIS касета 
Problem #18-4: Letter Math 


Here's one of millions of similar problems. Perhaps 
you've solved them with paper and pencil before. This 
time you can be lazy and let the computer do all the work. 
Write a program to let the computer find values of X, 
Y, and Z to make this sum correct. Except for FOR and 
NEXT statements, use only one statement per program 
line. By the way, Z must not be 0. 


XYZ 
27 


This month we will look at reader's solutions to Feb- 
ruary's Commodares as well as a few odds and ends, First 
I want to reiterate the time schedule for this column. This 
June issue is being written in mid-February. АП letters 
received by the middle of the magazine cover month will 
be given prime consideration for publication. Respons- 
es to February Commodares received after the middle 
of February will still be read, but they have less proba- 
bility of being mentioned since they are too late to be 
discussed this month. Don't let that discourage you from 
sending your solutions any time. The most unusual ones 
will be included in this column. If you sent a valid solu- 
tion to some of the Commodares but your name didn't 
appear in genuine print, it is probably because your solu- 
tion didnt reach us before mid-month. 

In response to Commodare #10-1: Numeric Palindrome 
from last October, James Killman (Memphis, TN) men- 
tioned that he ran his program for 28 days, 12 hours, 
28 minutes, and 46 seconds before he got fed up and 
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quit—without a solution! His program cycled through 
12,954 passes and reached a number 5,366 digits long. 
The problem was to take a number (196), reverse it, add 
the two together, see if the sum is a palindrome, and if 
not repeat the process using the sum instead of the ori- 
ginal number. The palindrome for 196 has supposedly 
not been determined even on large computers. Mr. Kill- 
man’s routine POKEs each digit into a reserved section 
of memory, reversing the direction each time. It POKEs, 
compares, reverses the digits, and then adds them. The 
numbers can be as large as the amount of memory al- 
lows. If you would like to see a listing of Mr. Killman's 
twenty line BASIC program, send a stamped, self-ad- 
dressed envelope to Commodares with your request. 

Rick Nash (Millersburg, OH) sent the following as- 
sembly language implementation of Commodare #13-3: 
Micro Calc. As we mentioned last month, the solution 
to this problem doesn't really do anything that isn't al- 
ready available in BASIC. The user can easily type in 
a string of numbers and mathematical operators in com- 
mand mode and let the computer print the results. Writing 
a program to let the user type the numbers and орега- 
tors gives some insight into the problems of parsing and 
of how a compiler might be created. Rick's solution shows 
some useful procedures for accessing various BASIC util- 
ity routines from assembly language. The assembly lan- 
guage listing and a BASIC program to run it are listed 
below: 


1 REM ASSEMBLY LANGUAGE USR ROUTINE 
2 REM SOLUTION TO PROBLEM #13-3 

3 REM MICRO CALC 

4 REM BY RICK NASH 

5 REM 

90 :*-$02A7 
100 :TXTPTR-$7A 
110 :INDEX -$22 
120 :FRESPC-$35 
130 :VARPTR-$64 
140 :BUFFER-$0200 

150 :CHRGET-$0073 

160 :MOVSTR-$B68C (VIC-$D68C) 


3 PROGRAM ORIGIN 


170 :CRUNCH-$A57C (УІС-8С57С) 

180 :FRMEVL-$ADOE (VIC=$CD9E) 

190 REM SAVE TEXT POINTER ON STACK 
200 :LDA TXTPTR 

210 :PHA 

220 :LDA ТХТРТЁ+1 

230 :PHA 

240 REM (64) PTS. TO STRING DESCRIPTOR 
250 :LDY #0 . 

260 :LDA (VARPTR),Y | ;STRING LENGTH 
270 :PHA 208 STACK 

280 :INY 

290 :LDA (VARPTR),Y © ;ADDRESS LOW 
300 :STA INDEX 

310 :INY 

320 :LDA (VARPTR),Y | ;ADDRESS HIGH 
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330 :5ТА INDEX+1 

340 :PLA ;STRING LENGTH 
350 :TAY ;TO Y 

360 :LDA $0 

370 :5ТА BUFFER,Y ;SET END 

380 :LDA #<BUFFER 

390 :LDX #>BUFFER 

400 :STA FRESPC 35ЕТ PTRS FOR 
410 :STX FRESPC+1 5 VARIABLE MOVE 
420 :5ТА TXTPTR ;SET PTRS FOR 
430 :STX TXTPTR+1 ;CRUNCH ROUTINE 
440 :TYA 3.А-УАВ LENGTH 
450 REM MOVE VARIABLE TO INPUT BUFFER 
460 :JSR MOVSTR 

470 REM TOKENIZE STRING 

480 :JSR CRUNCH 

490 REM BUMP TEXT POINTER 

500 :JSR CHRGET 

510 REM EVALUATE EXPRESSION 

520 :JSR FRMEVL 

530 REM RESTORE TEXT POINTER 

540 :PLA 

550 :STA TXTPTR+1 

560 :PLA 

570 :STA TXTPTR 

580 REM RETURN TO USR ROUTINE & ASSIGN 
590 REM VALUE IN FAC] TO FLOATING 


600 REM POINT VARIABLE 

610 :RTS 

M ee 
1 REM BASIC SOLUTION TO PROBLEM #13-3 

2 REM MICRO CALC 

3 REM BY RICK NASH 

4 REM 

40 FORA-679 TO 738:READ D:POKE A,D:NEXT 
50 POKE 785,167:POKE 786,2 

60 INPUT"PROBLEM ";A$:IF A$="END" THEN E 
ND 

70 PRINT"THE ANSWER IS: ";USR(A$):PRINT: 
GOTO 66 

80 DATA 165,122,72,165,123 

90 DATA 72,160,0,177,100 

100 DATA 72,200,177,100,133 

110 DATA 34,200,177,100,133 

120 DATA 35,104,168,169,0 

130 DATA 153,0,2,169,0 

140 DATA 162,2,133,53,134 

150 DATA 54,133,122,134,123 

160 DATA 152,32,140,182,32 

170 DATA 124,165,32,115,0 

180 DATA 32,158,173,104,133 

190 DATA 123,104,133,122,96 


The BASIC program installs the machine language rou- 
tine, then asks the user to enter a numeric problem such 
as 2-3*SQR(I8), which is stored as a string. You may 
use any BASIC functions, previously defined floating 
point or integer variables, or mathematical or Boolean 
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operators in the numeric problem. In the machine lan- 
guage program, the sequence is as follows: 1) the string 
(AS) is copied into the input buffer ($0200), 2) the string 
is scanned and tokenized, 3) the formula is evaluated us- 
ing BASIC's evaluator routine with the result left in the 
floating point accumulator, and 4) the USR routine ге- 
turns the value from the floating point accumulator (FACI) 

Below is the solution from R.W. Kober (Buffalo, TX) 
1o his Commodare #17-2: Printer Sentinel from last month 


1 REM К.М. KOBER 

2 REM PROBLEM 417-2 : 
5 GOTO 100 

10 OPEN 4,4 

20 PRINT#4:IF ST AND 128 THEN 40 

30 CLOSE 4:RETURN 

40 PRINT TAB(248)"THE PRINTER IS NOT ON! 
"CHR$(19):GOTO 20 

99 REM —-MAIN PROGRAM--- 

100 PRINT CHR$(147) 

110 GOSUB 10 :REM <<< CHECK ON PRINTER 
120 OPEN 4,4:PRINT#4,"PRINTER IS ON" 
130 CLOSE 4 


PRINTER SENTINEL 


Before printing, the program calls this subroutine. If the 
printer is not on, the message is printed, and the sub- 
routine loops until the printer is turned on. If the printer 
is on, control is returned immediately to the calling pro- 
gram. Notice the use of the ST (STATUS) function. Also 
notice that the space between the ST and the AND is 
necessary. Can you figure out why? Omit the space and 
see what happens. 

John Twardowski (Albany, NY) sent solutions Com- 
modares #14-1: Maximus Input and #14-2: Singles Only 
combined into one program. 


1 REM JOHN TWARDOWSKI 

2 REM PROBLEMS 14-1 AND 14-2 

3 REM MAXIMUS INPUT AND SINGLES ONLY 
4 REM 

10 PRINT CHR$(147) 
PRINT CHR$(164); 
GET A$:IF A$-"" THEN 30 

ШЕ A$=CHR$(13) THEN PRINT LF$" " : GO 
70 


: LF$=CHR$(157) 


IF A$=CHR$(20) THEN PRINT LF$" "LF$LF 
3 :B$=LEFT$(B$,LEN(B$)-1):GOTO 20 
B$-B$4A$:PRINT LF$A$;:GOTO 20 

70 DIM A(90):FOR K-1 TO LEN(B$):B-ASC(MI 
D$(B$,K,1)):A(B)=A(B)+1:NEXT 

80 PRINT: PRINT"MISSING":FOR K=65 TO 90:1 
F A(K)=0 THEN PRINT CHR$(K)" 
90 NEXT:PRINT:PRINT"DUPLICATES":FOR K=65 
TO 99:IF А(К)>1 THEN PRINT CHR$(K)" "; 
100 NEXT 


Several other readers took a similar approach to crea- 
ting a cursor in Problem #14-1. There was no require- 


ment that the cursor must blink. The majority of the solu- 
tions to Problem #14-2 were much like John's approach. 

Paul Sisul (St. Louis, MO) sent the following solu- 
tion to Problem #14-2: Singles Only which doesn't use 
any IF statements. Instead he uses logical expressions. 
Furthermore, his solution contains no arrays or sub- 
scripted variables. 


1 REM PAUL SISUL 

2 REM PROBLEM #14-2 
3 REM 

20 INPUT S$:FOR J=65 TO 90:C-0:FOR К=1 T 
0 LEN(S$) :C-C-(MID$(S$,K, 1) -CHR$(J)) 

30 NEXT K:PRINT CHR$(48*(1+(C=1))+C);"_" 
3CHR$(J*-(C<>1)), :NEXT J 


: SINGLES ONLY 


To understand Paul's solution, recall that a logical ex- 
pression has a value of 0 if it is false and —1 if it is true. 
Consequently the function СНЕЗО * -(С< >1) ) rep- 
resents CHRS(0) for any letter whose count is equal to 
one If the current letter's count does not equal one, the 
expression (C< >1) is true and has the value —1. There- 
fore -(С< >1) equals 1, and CHR$U * -(С<>1)) 
equals CHR$(J). The other CHR$ function in line 30 
converts the count C into its ASCII value which is also 
printed. Some tricky but interesting programming! 

Several readers sent panagrams from various sources 
in response to Problem #14-2: Singles Only. Mike Skloff 
(New York, NY) included his favorite typing test, “Pack 
my box with five dozen liquor jugs” as well as an even 
shorter “Waltz, nymph, for quick jigs vex Bud.” Neither 
of these are perfect pangrams since they contain dupli- 
cate letters. Some of the perfect ones he sent include: 

Cwm, fjord-bank glyphs vext quiz. 
Zing! Vext cwm fly jabs Kurd qoph. 
Milk-vat fez bugs qoph-crwd jynx. 

These are from Dmitri А. Borgmann's book Language 
on Vacation (Scribner's, 1965). Mr. Skloff leaves the 
translations of these sentences up to you. Dig out the un- 
abridged dictionary for these! 

Jim Root (Whitmore Lake, MI) sent this sentence con- 
taining all the letters: “Wafting zephyrs quickly vexed 
Jumbo" I think he's talking about a flying elephant. Clif- 
ford Dedmore Jr. (North Bend, OR) sent “Cwm Кушта 
qoph jynx fled brigs" from the Guinness Book of World 
Records, which was supposedly found with the use of 
three computers. Again, the translation is up to you. 

There were many good solutions to Problem #14-3: 
Digital Deduction. Most readers knew that by using bi- 
nary search techniques the computer can deduce the user's 
number (between 1 and 1000) in ten or fewer guesses. 
In fact, since 1024 is two raised to the tenth power, the 
range of numbers could be 1 to 1024 and still guarantee 
that not more than ten guesses are needed. 

David Alan Wright (New Britain, CT) sent the follow- 
ing solution which requires only (are you ready for this?) 
nine, yes, nine guesses by the computer! Now before you 
start throwing the books on mathematical theory at me, 
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а word of explanation. As David points out, “Тһе max- 
imum number of guesses is nine. After each guess, the 
possibilities are halved. On the ninth guess, only one pos- 
sible number is left, and the program tells you the ап- 
swer rather than asks, so a tenth guess is unnecessary" 
Voilà! His solution is listed below. 


1 REM COMMODARE #14-3:DIGITAL DEDUCTION 
2 REM SOLUTION BY DAVID ALAN WRIGHT 

3 REM 

10 PRINT" CHOOSE A NUMBER FROM 1 TO 1000 
AND HIT RETURN": INPUT A$:H=1000 

20 A$="X":IF(L+H)/2<>L+1THEN N=INT( (L+H) 
/2):PRINT"IS"N"H, L OR EQUAL"; :INPUT A$ 
30 IF LEFT$(A$,1)="H" THEN H=N:G=G+1:GOT 
0 20 

40 IF LEFT$(A$,1)="L" THEN L=N:G=G+1:GOT 
0 20 


50 PRINT" AFTER"G"GUESSES YOUR NUMBER IS 
"ТЕ (L+H)/2=L+1 THEN PRINT L+1:END 
60 PRINT N 


Chuck McGaffin (Ballston Lake, NY) sent an equa- 
tion for calculating the maximum number of guesses (N) 
required to find a single item from a group of M items: 


N = INT(LOG(M)/LOG(2) +1) 


Wallace Leeker (Lemay, MO) simplified the mathe- 
matics of this problem by making his first guess 512. 
From then on, he merely divided the guess by two and 
either added or subtracted the result to obtain the next 
guess, That way he eliminated all the INT and rounding 
statements that other readers used. 

John Deering (Tustin, CA) and Chuck McGaffin both 
sent separate programs which simulated the entire game. 
Both programs tabulated the numbers of computer guess- 
es required for each chosen number from 1 to 1000. For 
example if the user thought of the number 500, the com- 
puter would guess it on the first try. If the target number 
was 250, the computer could guess it on the second try, 
and so forth. Mr. Dearing's program calculated the maxi- 
mum and the average number of guesses required for all 
selected numbers. Mr. McGaffin's program below keeps 
track of the total of one-guess numbers, two-guess num- 
bers, etc. Perhaps you could expand this concept to find 
the "safest" targets, i.e., the numbers that require the most 
computer guesses to deduce. 


1 REM CHUCK MCGAFFIN 

2 REM PROBLEM $14-3 : DIGITAL DEDUCTION 
3 REM COMPUTER SIMULATION TO VERIFY THAT 
EVERY NUMBER IS GUESSED IN < 10 TRIES 
4 REM 

10 FOR №1 TO 1000:№6=1 

20 Ша1:1Л,г1000:1-500:60Т0 40 

30 I-INT((LL4UL)*.5) :NG=NG+1 

40 IF N<I THEN UL-I-1:GOTO 30 
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50 
60 
70 
80 
90 


IF МТ THEN LL-I41:GOTO 30 

IF NG»10 THEN PRINT N 
G(NG)=G(NG)+1 

NEXT 

FOR J=1 TO 10:PRINT G(J);:NEXT 


The final solutions this month аге for Problem 414-4: 
Roman Translation. The user types a Roman numeral 
and the computer gives the Arabic equivalent. These pro- 
grams from Clifford Dedmore Jr. (North Bend, OR) and 
John Immarino (Hackensack, NJ) were chosen from sev- 
eral submitted because of their brevity and because they 
use such greatly differing approaches to the solution. 


1 REM CLIFFORD DEDMORE JR. 

2 REM PROBLEM #14-4 : ROMAN TRANSLATION 
3 REM 

ni DIM T(20):INPUT"ENTER ROMAN NUMERAL"; 
А 


20 FOR К=1 TO LEN(A$):B$=MID$(A$,K,1) 

36 L--(B$z"I")-5*(B$z"V")-10*(B$z"X")-50 
*(B$s"L")-100*(B$2"C")-500*(B$2"D") 

35 LeL-1000*(B$s"M") 

40 T(K)=L:NEXT 

50 FOR К-1 TO LEN(A$):IF T(K)>=T(K+1) TH 
EN TT=TT+T(K):GOTO 70 

60 ТТ=ТТ+Т(К+1)-Т(К):К=К+1 

70 NEXT:PRINT TT 


1 REM JOHN IMMARINO 

2 REM PROBLEM #14-4 : ROMAN TRANSLATION 
3 REM 

10 V$="MDCLXVI" 

20 INPUT"ROMAN NUMERAL";R$:Le7 

30 FOR A-LEN(R$) TO 1 STEP -1 

40 :Х-2:Е-5000 

FOR B-1 TO 7 

F MID$(R$,A,1)=MID$(V$,B,1) THEN 


-АВ5(Х-7):Е-Ғ/Х 
ЕХТ В 


90 
100 NEXT А 
110 PRINT"ARABIC";T:PRINT:T=0;GOTO 20 


3 T=T+F*((C>L)-(C<=L)) :L=C 


Notice Clifford's use of the "conditional LET" state- 
ment in line 102. This technique is based upon the con- 
cepts of logical expressions which we discussed above. 
John also employs a logical expression in line 180 to de- 
termine the correct result when a smaller value occurs 
before a larger value and must be subtracted from it. A 
good exercise would be to "play computer" and figure 
out how both of these programs work. Jim Speers (Niles, 
MI) pointed out that these programs work only if the user 
types in Roman numerals in the proper format. An input 
such as "CIVX7 for example, will be evaluated, but it 

Continued on page 14 
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PROGRAM LISTINGS 


Attention new Ahoy! readers! You must read the following information very 
carefully prior to typing in programs listed in Ahoy! Certain Commodore 
characters, commands, and strings of characters and commands will appear in 
a special format. Follow the instructions and listing guide on this page. 


n the following pages you'll find several 
programs that you can enter on your 
Commodore computer. But before doing 
so, read this entire page carefully. 
clear reproductions, Ahoy!’s program 
generated on a daisy wheel printer, in- 
capable of printing the commands and graphic char- 
acters used in Commodore programs. These are 
therefore represented by various codes enclosed in 
brackets | |. For example: the SHIFT CLR/HOME 
command is represented onscreen by a heart  . 
The code we use in our listings is [CLEAR]. The 
chart below lists all such codes which you'll encoun- 
ter in our listings, except for one other special case. 
Тһе other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two 
symbols. The symbol on the left is obtained by 
pressing that key while holding down the COMMO- 
DORE key; the symbol on the right, by pressing 
that key while holding down the SHIFT key. COM- 
MODORE and SHIFT characters are represented in 
our listings by a lower-case "s" or "c" followed by 
the symbol of the key you must hit. COMMODORE 


O 


To insure 
listings are 


J, for example, is represented by |с J], and SHIFT J 
by [s J]. 

Additionally, any character that occurs more than 
two times in a row will be displayed by a coded list- 
ing. For example, [3 "[LEFT]"] would be 3 
CuRSoR left commands іп a row, [5 "is ЕРІ”) 
would be 5 SHIFTed English Pounds, and so on. 
Multiple blank spaces will be noted imilar fash- 
ion: 22 spaces, for example, as [22 

Sometimes you'll find a program line that's too 
long for the computer to accept (C-64 lines are a 
maximum of 80 characters, or 2 screen lines, long; 
VIC 20 lines, a maximum of 88 characters, or 4 
screen lines). To enter these lines, refer to the BASIC 
Command Abbreviations Appendix in your User 
Manual. 

On the next page you'll find our Bug Repellent 
programs for the VIC 20 and C-64. The version ap- 
propriate for your machine will help you proofread 
our programs after you type them. (Please note: the 
Bug Repellent line codes that follow each program 
line, in the whited-out area, should not be typed in. 
See the instructions preceding each program.) С 


When You When You 
You See и Meany ‘You Type Will See You See И Means You Туре Will See 
CLEAR] Serven Chear surr сікноме ЕО [BLACK] Black a 
[HOME] Home arnom @ [WHITE] White а 
UP] Curr Up SHIFT FCRSRÉ [RED] Red 
[DOWN] Cursor Down сені Ш [CYAN] Cyan ы 
LEFT] Canoe tan sur -crre [PURPLE] Purple a 
RIGHT] Cursor: Right -ste E [GREEN] Green ш 
551 Shied Spice SHIFT. Space W [BLUE] [7 ш 
INSERT] Invert surr гылы. ІШЕ [YELLOW] Yellow m 
DEL] Delete INSTDEL И [Fj ш 
[RVSON] Reverse On сугы. 9 ШІ [r2] Function 2 a 
[RVSOFF] наем OM 0 сиво в [rj Function 3 ш 
[UPARROW] Up Arm D Ж [ға] Function 4 sur 
BACKARROW] Buck Arrow - Æ [F5] Function 5 ш 
PI] n" T Ж [r6] Function 6 SHIET вв 
[EP] English Pound t Е [r7] Function 7 с | 
[Е8] Function 8 sur к Ж 
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Letters on white background are Bug Repellent line codes. Do not enter them! This and the preceding pace explain these. 
IMPORTANT! ‘tes end prove otto essemtal оого enano Anoyi programs. Head those pages before oriin Próprams 


BUG REPELLENT Бави: occur, LIST cach line. spot the errors. and correct 


"This program will let you debug any Ahoy! program. Follow in- +5000 FORX=491527049488: READY :POKEX, Y :NEXT : END GJ 
structions for VIC 20 (cassette or disk) or C-64. +5001 DATA32,161,192,165,43,133,251,165,44,133 DL 
VIC 20 VERSION +5002. 0ATA252,160,0,132,254,32,37,193,234,177 DB 

А A А +5003 DATA251,208,3,76,138,192,230,251,208,2 ОГ 

Ву Michael Kleinert rand David Barron -5004 DATA230,252,76,43,192,76,73,78,69,32 КМ 
ог cassette: type in and save the Bug Repellent program, then +5005 DATA35,32,0,169,35,160,192,32,30,171 СА 


type RUN 63000[RETURN]SYS S28[RETURN]. If you typed the 
program properly, it will generate a set of two-letter line codes that 
will match those listed to the right of the respective program lines, 


+5606 DATA160,0,177,251,170,230,251,208,2,230 СЕ 
*5007 DATA252,177,251,32,205,189,169,58,32,210 JE 


Once you've got a working Bug Repellent, type in the program *5008 DATA255,169,0,133,253,230,254,32,37,193 CL 
you wish to check. Save it and type the RUN and SYS commands *5009 DATA234,165,253,160,0,76,13,193,133,253 NB 
listed above once again, then compare the line codes generated to +5010 DATAL77,251,208,237 ,165,253,41, 240, 74, 74 MB 
those listed in the magazine. If you spot a discrepancy, a typing +5011 DATA74,74,24,105,65,32,210,255,165,253 ЕР 
error exists in that line. Important: you must use exactly the same *5012 DATA41,15,24,105,65,32,210,255,169,13 СН 
spacing as the program in the magazine. Due to memory limitations *5013 DATA32,220,192,230,63,208,2,230,64,230 AN 
on the VIC, the VIC Bug Repellent will register an error if your +5014 DATA251,208,2,230,252,76,11,192,169,153 NG 
spacing varies from what's printed. -5015 DATA160,192,32,30,171,160,63,165,64,76 ВЕ 

Тоону УРО SNR И И кируу убит Ceuta -5016 0АТА231,192,96,76,73,78,69,83,58,32 ЕР 
use the cassette. for anything, type RUN 63000 to restore the +5017 DATA0,169,247,160,192,32,30,171,169,3 РЈ 
eee +5018 DATA133,254,32,228,255,201,83,240,6,201. FK 


When your program has been disinfected you may delete all lines 


from 63000 on. (Be sure the program you type doesn't include lines *5019 DATA80,208,245,230,254,32,210,255,169,4 FL 


above 63000!) +5020 ПАТА166,250,160,255,32,186,255,169,0, 
For disk: enter Bug Repellent, save it, and type RUN:NEW *5021 DATA63,133,64,133,2,32,189,255,32,192 СС 
[RETURN]. Type in the program you wish to check, then SYS 828. *5022 DATA255,166,254,32,201,255,76,73,193,96 NN 
То pause the line codes listing, press SHIFT. +5023 ОАТАЗ2,210,255,173,141,2,41,1,208,249 NH 
To send the list to the printer type OPEN 4,4:CMD 4:SYS +5024 DATA96, 32,205,189, 169,13,32,219,255,32 IM 
S2B[RETURN]. When the cursor comes back, type *5025 DATA204,255,169,4,76,195,255,147,83,67 КС 
PRINT#4:CLOSE 4[RETURN]. +5026 DATAB2,69,69, 78,32, 79,82, 32, 80,82 DC 


*63000 FORX=828T01023:READY:POKEX,Y:NEXT:END АС +5927 ,84,69,82,32,63,32,0,76 ML 
*63001 DATA169,0,133,63,133,64,165,43,133,251 JL +5028 ,193,234,177,251,201,32,240,6,138 GN 
«63002 DATA165,44,133,252,160,0,132,254,32,228 DF >5029 DATA113,251,69,254,170,138,76,88,192,0 ЈК 
*63003 DATA3,234,177,251,208,3,76,208,3,230 ОЕ +5030 DATAO,0,0,230,251,208,2,230,252,96 NA 
*63004 DATA251,208,2,230,252,169,244,160,3,32 OH +5931 DATAl70,177,251,201,34,208,6,165,2,73 — DM 
+63005 DATA30,203,160,0,177,251,170,230,251,20 +5032 DATA255,133,2,165,2,208,218,177,251,201 ЈА 
8 KO +5033 DATA32,208,212,198,254,76,29,193,0,169 ЕМ 
«63006 DATA2,230,252,177,251,32,205,221,169,58 JJ 5034 ПАТА13,76,210,255,0,0,0 РА 
263008. DATAZ28, 3, 1, 165,255, 163,0, 110,117 251 16 

. 4TA228,3,234,165,253,160,0,170,177,251 LG Gate DPPbD y 
«63009 DATA201,32,240,6,138,113,251,69,254,170 ВР PLAN FORTHE C-64 
+6301 DATA138,133,253,177,251,208,226,165,253 Ву Gordon Е. Wheat 

„41 DD Flankspeed will allow you to enter machine language Ahoy! pro- 
«63011 DATA240,74,74,74,74,24,105,65,32,210 ЕК grums without any mistakes. Once you have typed the program in 
+63012 DATÀ255,165,253,41,15,24,105,65,32,210 ҒО “e it for future use. While entering an ML program with 
+63013 DATA255,169,13,32,210,255,173,141,2,41 PK рее there is no need to enter spaces or hit the carriage return 


м This is all done automatically. If you make an error in a line a hell 
ends OH err eire ee (5 will ring and you will be asked to enter it again. To LOAD in a 
»208,2,230,252,76,74,3,169, program Saved with Flankspeed use LOAD "name".l.1 for tape 


*63016 DATA160,3,32,30,203,166,63,165,64,32 DP or LOAD “na 8.1 for disk. The function keys may be used afte 
«63017. DATA205,221,169,13,32,210,255,96,230,25 the starting and ending addresses have been пе шынайы 
в - 


at you have entered so far. 


*63018 DATA208,2,230,252,96,0,76,73,78,69 OI pgram worked on previously 
*63019 DATA83,58,32,0,76,73,78,69,32,35 FG о continue on a line you stopped on after LOADing in the 
+63020 DATA32,0,0,0,0,0 LE ly saved work. 


ular line. or to find 
sd the program. 17 


C-64 VERSION 
By Michael Kleinert and David Barron 


temporarily freezes the output as well 


“5 POKE53280, 12: POKE53281,11 - 


Type їп, SAVE. and RUN the Вик Repellent. Type NEW. then Я i : 
type in or LOAD the Ahoy! program you wish to check. When that's DU [CLEAR (с. 8][RVSON]L15' "IFLANGSPEEDI ` a 
с. SAV gram (don't RUN it! : SYS 49152 

RETURN. силите O SNA пуре 575471 -10 PRINI"[RVSON][5" "JMISTAKEPROOF ML ENTRY P 
To pause the listing depress and hold the SHIFT key ROGRAM[G" "]" b MC 
Compare the codes your machine generates to the codes listed +15 PRINT"[RVSON][9" "]CREATED BY С. Е. WHEAT[ 

10 the right of the respective program lines. If vou spot a difference. се! a DM 

an error exists in that line. Jot down the number of lines where +20 PRINT"[RVSON][3" "]COPR. 1984, ION INTERNA 
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TIONAL INC.[3" "]" 

+30 FORA=54272T054296 : POKEA ,(): NEXT 

+40) РОКЕ50272,4:Р0КЕ54273,48:РОКЕ54277,0:РОКЕ5 
4278, 249: POKES4296 , 15 NH 
:70 FORA=689T0699: READB: POKEA,B:NEXT KO 
+75 DATA169, 251,166,253, 164,254,32,216,255,96 HJ 
+76 DATA169,0, 166,251, 164,252,32,213,255,96 — JB 
+8 BS="STARTING ADDRESS IN HEX":GOSUB2010:AD« 


DH 
IM 


B:SR=B HC 
*85 GOSUB2520:; IFB=OTHENBO FO 
*86 POKE251,T(4)4T(3)*16:POKE252,T(2)4T(1)*16 КЕ 
90 B$="ENDING ADDRESS IN HEX":GOSUB2019:EN=B IF 
*95 GOSUB2510: IFBeOTHENBO FP 
*96 POKE254 ,T(2)+T(1)*16:B=T(4)+14+T(3)*16 MN 
"97 IFB>255THENB=B-255 : POKE254 „РЕЕК(254)+1 GE 
"98 POKE253,B:PRINT HN 


100 
110 


REM СЕТ HEX LINE 


IL 
GOSUB3O10:PRINT": [c P][LEFT]";:FORA=0T08 FG 


+120 FORBeOTOI:GOTO210 мр 
+125 NEXTB МЕ 
:130 AZ(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN319 ІН 
4135 PRINT" [c P][LEFT]"; IK 
+140 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " — PD 
+150 FORA=(TO7:T=T+A%(A):IFT>25STHENT=T-255 LK 
+160 NEXT IA 
+170, IFA%(8)<>TTHENGOSUB1919:GOTO110 FK 
+180 FORA=(TO7 : POKEAD+A, A%(A):NEXT: AD=AD+8:GOT 

0110 MN 
“200 REM СЕТ HEX INPUT AB 
+210 GETA$:IFA$=""THEN210 HO 
*211 IFAS=CHR$(20)THEN270 Gc 
*212 IFAS=CHR$(133)THEN4O00 * MD 
*213 IFAS-CHRS(134)THENA100 KF 
+214 IFA$=CHR$(135)THENPRINT" ":GOTO4500 GE 
+215 IFA$=CHR$(136)THENPRINT" ":GOTO4700 BJ 
+220 IFA$>"@"ANDA$<"G"THENT(B)=ASC(A$)-55:GOTO 

250 см 
+230 IFAS>"/"ANDAS<" : "THENT(B) -ASC(AS) -48:GOTO 

250 LE 
+24) 605081100:6010210 LL 
+250 PRINTAS"[c P][LEFT]"; OA 
+260 GOTO125 сс 
+270) ІҒАУ/ТНЕУ280 OP 
+272 A«-l:IFBelTHEN290 OB 
+274 6010149 CI 
*28() IFBe'THENPRINTCHR$(20);CHRS(20);:AeA-1 НС 
*285 А=А-1 BE 
:290 PRINTCHR$(20) ;:6010140 KH 
*300 REM LAST LINE AD 
+310 PRINT" ":T-AD-(INT(AD/256)*256) GJ 
*320 FORB=GTOA-1:T=T+A%(B):TFT>255THENT=T-255 PL 
+330 NEXT 1А 
+340 ТЕАХ(А)  TTHENGOSUBI010:GOTOL10 KF 
+350 FORB-(TOA-1 :POKEAD&B, AZ(B) : NEXT HN 
+360 PRINT:PRINT"YOU ARE FINISHED!":GOTO400 ОХ 
+1000 REM BELL AND ERROR MESSAGES FL 


“1010 PRINT:PRINT"LINE ENTERED INCORRECTLY":PR 


INT:GOTOl100 DH 
*1020 PRINT:PRINT"INPUT A 4 DIGIT HEX VALUE!": 
GOTO1106 JA 


*1030 PRINT:PRINT"ENDING IS LESS THAN STARTING 
1": Be0:GOTO1100 HD 

*1040 PRINT:PRINT"ADDRESS NOT WITHIN SPECIFIED 
RANGE!" : B=0:GOTO1100 

+105) PRINT:PRINT"NOT ZERO PAGE OR КОМ!":В-0:6 
0701100 


KN 
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*1060 PRIN 
+1070 PRINT" ?ERROR IN LOAD":GOTO1100 GL. 
**1080 PRINT;PRINT;PRINT"END OF ML AREA":PRINT PG 
+110 POKE54276,17:POKE54276, 16: RETURN BH 
+1200 OPEN15,8,15:INPUT#15,A,A$:CLOSE15:PRINTA 
$:RETURN IM 


+2000 REM GET FOUR DIGIT HEX PC 
+2010 PRINT: PRINTBS; : INPUTTS см 
“2020 IFLEN(T$) >4ТНЕКСО50В1020:60102010. II 


+2040 FORA=1T04:A$=MID$(TS,A,1):GOSUB2960: I 


A)=16THENGOSUB1920:GOTO2019 

“2050 NEXT: EUA AE) (TC2)*256)4(7(3)#T6)# | 
T(4) : RETURN GF. 
+2060 IFA$»"G'ANDASC"G"THENT(A)sASC(AS)-55: RET. " 
URN 

+2070 IFAS$»" /" ANDASC" : "TRENT(A) »ASC(A$)-48: RET T 
URN К 
+2080 T(A)216: RETURN NP 
+2500 REM ADRESS CHECK LI 
“2510 IFAD>ENTHEN1030 MI 
*2515 IFB<SRORB>ENTHEN1040 MG. 
+2520 ТЕВ<2560Ё( В>40960АУрВ<49152)08В>53247ТНЕ 
N1050 MI 
+2530 RETURN IM 
+3000 REM ADDRESS TO HEX ЕВ 
“3010 4096: GOSUB3070. HG 
+3020 A=256:GOSUB3079 CE 
+3030 608083070 PN 
3040 5083070: MJ 
“3060 RETURN ІМ 
un TsINT(AC/A): IFDSTHENAS-CHRS (455): GOTO3 СІ 
090 od 
“3080 A$=CHR$(T+48) JP 
+3090 РКІМТА$ ; :AC=AC-A*T: RETURN AC 
+4000 AS="**SAVE**" : GOSUB4200 AT 
+4050 OPEN] ,T,1,A$:SYS689:CLOSE1 ІН 
“4060 ІЕ5Т-«//ТНЕМЕМ) FO. 
“4070 GOSUB1960; IFT=8THENGOSUB1200 FJ 
+4080 60704000 FF, 
+4100 AS="**LOAD**":GOSUB4200 AB 
+4150 OPEN1,T,,A$:SYS699;CLOSE1 MF 
+4160 IFST=64THEN11O JH 
“8170 GOSUB1670: IFT=8THENGOSUB1200 см 
+4180 60104100 FO 
+4200 PRINT" ":PRINTTAB(14)A$ FG 
*4210 PRINT:ASz'":INPUT'FILENAME" ; A$ 0M 
*4215 ІҒАб-""ТНЕМ4210 GF 
*4220 PRINT:PRINT"TAPE OR DISK?":PRINT DF 
+4230 GETBS$:T=1:IFBS="D"THENT=8: A$="@0:"+A$:RE 
TURN 16 
+4240 1ЕВ8<>"Т"ТНЕМ4230 FN 
*4250 RETURN IM 
"5500 B$="CONTINUE FROM ADDRESS":GOSUB2010:AD- Е 

Di 

*4510 GOSUB2515:IFBEUTHENASOG MA 
+4520 PRINT:GOTO119 от 
+4700 BS-"BEGIN SCAN AT ADDRESS":GOSUB2010:AD- 

B FH 
+4705 GOSUB2515:1FB=(GTHEN4 700 NK 
+4796 PRINT:GOTO4740 DI 
+4710 FORB-(TO7 : AC-PEEK (AD+B) : GOSUB3030: IFAD+B 
=ENTHENAD=SR : GOSUB1086: GOTO1 10. BK 
*4715 PRINT" ЕС 
8720 PRINT: GN 
+4730 СЕТВ5:1ЕВ5-СНВ8(136)ТНЕМ110 MN 
“8740 GOSUB3010: PRINT" :G0TO47160 JD 
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IMPORTANT! “+: ол white background are Bug Repellent ine codes. Do not enter them! Pages 85 and 86 explain these codes 
* and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


The Ultimate 
Resolution 


FROM PAGE 37 


“1 REM JD 
*2 REM RUPERT REPORT £18 PA 
*3 REM LISTING LI 
*4 REM BIT MAP GRAPHICS KG 
*5 REM JD 
“10 DEF FNSB(N)=PEEK(MM) OR 2[UPARROW]N LG 
+20 DEF FNRB(N)=PEEK(MM) AND (255-2[UPARR 
WIN) FP 
“30 VV=53248 :REM VIC-II REGISTER 0 FL 
“35 :REM >>> PUT BIT MAP АТ 8192 <<< 

(SET BIT 3 OF VIC REGISTER 24) JA 
+40 MM=VV+24 : POKE MM,FNSB(3) 00 
+45 :REM >>> SELECT BIT MAP MODE <<< 

(SET BIT 5 OF VIC REGISTER 17) DH 
+50 MM=VV+17 : POKE MM,FNSB(5) JM 
«60 BASE=8192 :REM START BIT MAP MEMORY KD 
“65 :REM >>> CLEAR BIT MAP <<< HG 
+70 FOR MM=BASE TO BASE+7999 FN 
*80 POKE ММ,0 : NEXT MM OP 
«85 :REM >>> SELECT COLORS СІ AND CO <<< LC 
*90 С1=1 : CH=) : CC-16*Cl + CO ом 
*95 :REM >>FILL SCREEN MEMORY WITH COLOR AI 
*100 FOR ММ-1024 TO 2023:POKE MM,CC:NEXT ОМ 
194 : DI 
*195 ::REM:: MAIN PROGRAM :: AE 
*196 : DI 
*200 FOR N-1 TO 1000 CJ 
“210 X=RND(9)*320 : Y=RND(9)*200 PO 
*220 GOSUB 400 : NEXT NN 
«250 FOR P-1 TO 3000 : NEXT NE 
*294 : DI 
*296 : DI 
“300 :REM >>> RESET BIT MAP MODE <<< HJ 
*310 MM=VV+17 : POKE MM,FNRB(5) JN 
*320 :REM >>> RESTORE SCREEN MEMORY BASE GC 
+330 MM=VV+24 : POKE MM,FNRB(3) MP 
“390 END IC 
“395 :REM >>> TURN ON PIXEL AT (X,Y) OB 
“400 ВІТ-7-(Х AND 7) PJ 
+410 MM=BASE+320*INT(Y/8)+8*INT(X/8)+(Y А 
ND 7) AP 
“420 POKE MM,FNSB(BIT) MO 
“430 RETURN IM 


Sing. Song of cortes 


FROM PAGE 18 THREE-VOICE PLAYER 
“1 REM "THREE VOICE PLAYER" 

+2 REM PLAY 1, 2, OR 3 VOICES WITH THIS R 
Oy! 
w.oldgame: 


MM 


OUTINE 

*3 REM ADD IT TO YOUR PROGRAMS: ADJUST TH 
E DURATIONS AT 9200-9210 AS NEEDED 

*4 REM 

*5 REM PLAYS "GOD SAVE THE KING" ("MY c 
NTRY, 'TIS OF THEE") 


ОР 


MJ 
JD 


*6 REM 5 

“10 GOSUB 9000:GOTO 120 LE 

*60 FOR №1 TO LEN(MD$(PH)) FJ 

*61 FOR VC= TO EVZ GG 

*62 POKE GR(VC),UGZ(VC):REM NORMAL NOTES; 
DON'T POKE UGZ FOR LEGATO 

“63 FOR І-0 TO 1 JB 


*64 POKE FR(VC, I) ,PIZ(ASC(MID$ (MES(PH, VC) 
;N,1)),1) BD 
*65 NEXT:NEXT EF 
*66 FOR VC-EVZ TO 0 STEP -1:РОКЕ GR(VC), Шы 
Z(VC):NEXT 

*67 FOR I=) TO DUZ(VAL(MID$(MD$(PH),N, D 
):NEXT JB 
*68 REM FOR VC= TO EVZ:POKE GR(VC),UGZ(V 
C):NEXT:REM STACCATO NOTES во 
"69 NEXT:PH=PH+1:IF PH>ES% THEN РН-() 

“70 FOR ҮС=0 TO EVZ:POKE GR(VC),UGZ(VC):N 


IJ 


EXT: RETURN EP 
*100 GOSUB 60 PC 
*110 IF PEEK(653)>0 THEN END FF 
*120 PRINT "PHRASE "PH FC 
“190 GOTO 100 СЕ 
“8997 КЕМ JD 
*8998 REM SET UP SOUND SHAPE FD 
*8999 REM 


J 

“9000 DIM MD$(23),ME$(23,2) ,MV$(23,2), EN 
2),GR(2),FR(2,1),AD(2) 
+9001 DIM П02(9),РІ2(168,1),АК%(2), LN 

»SN2(2) ,RE2(2) ,WF2(2) 
*9007 REM 
*9008 REM ATTACK--VOICES 0,1,2 KG 
*9069 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER-SHARPER ATTACK OK 
+9010 АК2(0)-2:АК2(1)-2:АК2(2)-2 АМ 
+9015 FOR I=) TO 2:АК2(І)-АК2(1)%16:МЕХТ FF 
*9017 REM JD 
“9018 REM DECAY--VOICES 0,1,2 
+9019 REM NUMBER FROM 0 TO 15; LOWER NUMB 


D 


PK 


ER=FASTER DECLINE GA 
+9020 DYZ(0)-4:DY2(1)26:DY2(2)-6 NC 
“9027 REM JD 


“9028 REM SUSTAIN—VOICES 0,1,2 FC 
+9029 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER-SOFTER VOLUME DURING SUSTAIN 

«9030 582(0)-12:5М2(1)-8:5М2(2)-9 ЕВ 
+9035 FOR 1-0 TO 2:SNZ(I)-SNZ(I)*16:NEXT BD 
+9037 REM JD 
“9038 КЕМ RELEASE--VOICES 0,1,2 ок 
“9039 REM NUMBER FROM 0 TO 15; LOWER NUMB 
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ER-FASTER DROP TO SILENCE АТ END PJ 
+9040 REZ(0)-0:REZ(1)-3:RE2(2)-5 BG 
*9047 REM JD 
“9048 REM SET SOUND ADDRESSES Jc 
“9049 REM JD 


«9050 FR(0,0)254272:FR(1,0)-54279:FR(2, D 
254286 

*9055 FOR 1=0 TO 2:FR(I,1)-14FR(I, 0): ана 
)=FR(1,9)+4:AD(1)=GR(1)+1:NEXT HJ 


“9057 REM JD 
“90/58 REM POKE ADSR ENVELOPES JL 
“9059 REM JD 


“9060 FOR I= TO 2:POKE AD(I),ATZ(I) OR D 
YZ(I) EN 
*9065 POKE AD(I)*l,SNZ(I) OR REZ(I):NEXT n 
+9066 REM 
“9067 REM SET UP GATES Di 
*9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 
LUES): DJ 
+9069 REM TRIANGLE ON-16; SAWTOOTH 0N-32; 
PULSE ON-64 (SET WIDTH!); NOISE ON-128 IL 
“9070 WFz(0)264:WFZ(1)264:WF2(2)-32 HP 
*9075 FOR I=) TO 2:62(1)=1 OR WFZ(I): BAG 
1)=G4(1)AND 254:NEXT 


+9077 REM D 
+9078 REM SET PULSE WIDTHS AC 
+9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 
TE MG 
+9080 POKE GR(0)-2,200:POKE GR(0)-1,3 JD 
+9081 POKE GR(1)-2,200:POKE GR(1)-1,3 10 
+9082 POKE GR(2)-2,200:POKE GR(2)-1,3 ЕР 
*9096 REM JD 
+9097 REM SET UP PITCH ARRAY DK 
+9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 
+9099 REM С NE 
+9100 X%=3:GOSUB 9190 BK 
+9101 DATA 12,1,24,2,48,4,97,8, 195,16, 135 
,33,15,67,30,134 

+9102 REM D "i 
+9103 X%=4:GOSUB 9190 PH 
«9104 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 РА 
+9105 REM E (F-FLAT) MH 
+9106 X%=5:GOSUB 9190:Y2-13:GOSUB 9195 DN 
+9107 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250, 168 

+9108 REM F (E-SHARP) DB 
+9109 X%=6:GOSUB 9190:Y%=19:GOSUB 9195 СЕ 
+9110 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44, 131,89,6,179 

+9111 REM С NI 
+9112 X%=7:GOSUB 9190 ю 
+9113 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243, 200 

-9114 REM A NC 
+9115 XZ-1:G0SUB 9190 PA 


*9116 DATA 195,1,134,3,12,7,24,14,49,28, M 
9,56,199,112, 143, 225 


*9117 REM В NF 
+9118 X%=2:GOSUB 9190 PF 
+9119 DATA 250,1,244,3,233,7,210,15,165,3 


CF 
JL 
NN 


1,75,63,151,126,46,253 

+9120 REM D-FLAT (C-SHARP) 

*9121 X%=11:GOSUB 9190:Y2-17:GOSUB 9195 
*9122 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71, 24, 142 KJ 
*9123 REM E-FLAT (D-SHARP) FD 
*9124 X%=12:GOSUB 9190:Y%=18:GOSUB 9195 LD 
“9125 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191,79,126,159 FB 
+9126 REM G-FLAT (F-SHARP) HH 
+9127 X%=14:GOSUB 9190:Y%=20:GOSUB 9195 НК 
“9128 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214, $4; 172, 189 HG 
*9129 REM A-FLAT (G-SHARP) 

*9130 X2-8:GOSUB 9190:Y2-21:GOSUB 9195 
*9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 
*9132 REM B-FLAT (A-SHARP) FP 
*9133 X%=9:GOSUB 9190:Y2-15:GOSUB 9195 DD 
*9134 DATA 221,1,187,3,119,7,239,14,223,2 


HE 
GN 


9,190,59,124,119,248,238 CN 
*9135 REM C-FLAT CH 
+9136 X%=10:GOSUB 9190 DL 


“9137 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 Al 
“9138 REM B-SHARP 

*9139 X%=16:GOSUB 9190 

*9140 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 

*9185 GOTO 9200 FM 
*9189 REM READ PITCHES NA 
+919 FOR I=) TO 147 STEP 21:READ PIZ(I4X 
2,0) ,PIZ(I4X2, 1) : NEXT: RETURN FN 
*9194 REM IDENTICAL PITCHES 

*9195 FOR I=) TO 147 STEP 21:PIZ(I«Y2,0)- 


IN 
CJ 


GA 


РІ2(1-Х2,0):РІ2(1%Ү2,1)-РІ2(1%Х2,1) LN 
*9196 NEXT: RETURN EJ 
*9197 REM JD 
*9198 REM SET UP DURATIONS ME 
*9199 REM JD 
“9200 FOR I= TO 9:READ DUZ(I):NEXT MB 
*9205 DATA 0,128,256,384,512,640,768,1024 

1152,1280 СА 
“9296 REM JD 
*9297 REM SET FILTER AND VOLUME BN 
*9298 REM FILTER FREQUENCY DE 


*9299 REM LOW BYTE (0-7) ХХ; HIGH BYTE (0 


-255) Y% PA 
*9300 Х2=0:Ү2=100 GD 
"9305 POKE 54293,X%:POKE 54294, Y% KJ 
“9308 REM FILTER ON? DD 


“9309 REM VOICE 1 ON-1; 2 ON=2; 3 ON=4; 1 


&2 ON=3; 2&3 ON=6; ALL ON=7 AL 
+9310 Х2-0 FM 
*9318 REM FILTER RESONANCE CE 


«9319 REM PEAK VOLUME ((=LOW, 15-HIGH) 
*9320 Ү4-14 

*9325 YZ-YZ*16:POKE 54295,X% OR YZ 

*9328 REM SELECT FILTER TYPE 

*9329 REM LOW-PASS-1;BAND-PASS-2;HIGH-PAS 


S=4;LO-BAND=3 ; HI-BAND=6 ; ALL=7 

+9330 X%Z=1 

+9335 XZ-X2*16 

“9337 REM 

+9338 REM SELECT OVERALL VOLUME 

*9339 REM 15-HIGH, %=LOW 

*9340 Y%=15 

*9345 POKE 54296,Х2 OR YZ 

*9496 REM 

*9497 REM SET MELODIES HERE 

*9498 REM 

*9499 REM HOW MANY VOICES? (MINUS ONE) 
*9500 EVZ=2 

*9508 REM 

*9509 REM HOW MANY PHRASES? (MINUS ONE) 
*9510 Е54-1 

*9514 REM 

*9515 REM MELODY STRINGS 

*9516 REM 

*9517 REM EACH PHRASE HAS ONLY ONE DUZ(PH 


) STRING, NO MATTER HOW MANY VOICES 

+9518 REM EACH PHRASE HAS ONE ME$(PH,VC) 
& ONE MV$(PH,VC) STRING PER VOICE 

*9519 REM PHRASE 0 

+9520 MD$(0)»" [3"2" ]40[4"2" )40[4"2" ]8" 

*9521 МЕ$(0,0) =  FFGEFGAA[c B]AGFGFEF" 

*9522 МҮ$(0,0)="5[15" "J" 

+9523 ME$((),1)="CCDCDECFGFEADAGC" 

+9524 MV$(0, 1)» 5[12" iis 5" 

+9525 ME$(0,2)«"FA[c B] 
В)ССА" 

+9526 МУ(0,2)-"3 234 34 343" 

+9529 REM PHRASE 1 


A0 


IP 
IP 
GK 


PB 
3"C"]FD[c B]CCD[c 
DG 


HP 
10 


9530 MD$(1)2"[3"2" ]40[4"2" ]4022[ 4"6" 1402 
BD 


00228" 

*9531 МЕ8(1, Иден Ex ВАСА с DUM 
[c E.AGFA[c B]CD[c В 

+9532 MV$(1,)="6[3" "]5[14" "16 5[3" "pip 
25:3] ME$(1,1)="[4"A" ]GF[4"G" ]FEFF@F@FEFF 


Jae" "J3" 


IK 
«9534 MV$(1,1)="43 4[3" "]3 4[3" "]3[3" " = 


«9535 МЕ$(1, 2)="FAC[3"F" JCEGCBCFDC[ c ВАС ae 


GA[c B]DCCF" 

*9536 MV$(1,2)="2 32[6" "]1234 3 2 321 
" 

*9897 REM 

*9898 REM CONVERT STRINGS TO USABLE FORM 
*9899 REM 


+9900 FOR РН-0 ТО ESZ:FOR ҮС-0 TO EVZ 
+9905 A$=ME$(PH, VC) -ME$(PH,VC)="" 
*9910 FOR I-1 TO LEN(A$) 

*9920 XZ=ASC(MID$(A$,1,1)) 

OY! 
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*9936 IF Х2<72 THEN X%=X%-64:1F X%< THEN 
X%=0 ED 


9931 IF XZ>192AND Х2<200 THEN XZ-X2-178 GP 
+9932 IF Х2-176 THEN X%=8 IF 
*9933 IF XZ-191 THEN Х4-9 FN 
*9934 IF XZ2-188 THEN X%=10 II 
*9935 IF Х2-172 THEN X%=11 IM 
*9936 IF X%=177 THEN Х2-12 LA 
*9937 IF Х4-187 THEN Х2-13 IE 
*9938 IF Х2-165 THEN Х2-14 HL 
*9939 IF X2521 THEN Х4-0 DL 


V$-MID$(MV$(PH,VC),I,1):IF V$4»" " 


THEN YZ-21*VAL(V$) PG 
*9960 Х2-Х4%/2 MJ 
*997() MES(PH, VC)=ME$( PH, VC)+CHR$(X%) ос 
“9975 NEXT:NEXT:NEXT РІ 
“9980 PH=0 WP 
*9990 RETURN IM 
ONE-VOICE PLAYER 
“1 REM ONE VOICE PLAYER (FAST) EH 
*2 REM PLAYS "MEXICAN HAT DANCE" NB 
*3 REM JD 
“10 GOSUB 9000:GOTO 120 LE 
“60 FOR N-1 TO LEN(MD$(PH)) FJ 
*61 DZ-VAL(MIDS$(MD$(PH),N,1)) LE 


*64 POKE GR,UGZ:REM NORMAL NOTES; DELETE 
POKES FOR LEGATO 

*65 FOR I=) TO 1:POKE FR(I),PIZ(ASC(MID$( 
MES(PH) ,N,1)), I):NEXT JN 
“66 POKE СК,СЖ NA 
*67 FOR І-0 TO DUZ(VAL(MID$(MD$(PH),N,1)) 


):NEXT JB 
*68 REM POKE GR,UGZ:REM STACCATO NOTES EE 
“69 NEXT:PH=PH+1:IF PH>ES% THEN PH=() IJ 
“70 РОКЕ GR,UG:RETURN КЕ 
1100 GOSUB 60 РС 
+110 IF PEEK(653)»0 THEN END ЕЕ 
“120 PRINT "PHRASE "РН FC 
*190 GOTO 100 CF 
“8997 REM JD 
«8998 REM SET UP SOUND SHAPE FD 
*8999 REM JD 
*9000 DIM MV$(23),MD$(23),ME$(23),FR(1) JI 
*9001 DIM DUZ(9),PIZ(168,1) PB 
*9007 REM JD 
*9008 REM ATTACK FE 


*9009 REM NUMBER FROM 0 TO 15; LOWER NUMB 


ER-SHARPER ATTACK OK 
+9010 AKZ-0 JL 
*9015 AKZ-AKZ*16 DL 
*9017 REM JD 
*9018 REM DECAY PJ 


“9019 REM NUMBER FROM 0 TO 15; LOWER NUMB 


ER-FASTER DECLINE GA 
+9020 DYZ-5 КЕ 
“9027 КЕМ JD 
+9028 REM SUSTAIN NH 


http: 


“9029 REM NUMBER FROM 0 TO 15; LOWER NUMB 


ER-SOFTER VOLUME DURING SUSTAIN JM 
+9030 SNZ=1 LL 
+9035 SNZ=SNZ*16 HB 


“9037 REM 
*9038 REM RELEASE 
*9039 REM NUMBER FROM 0 TO 15; LOWER NUMB 


JD 
IP 


ER-FASTER DROP TO SILENCE AT END PJ 
°9040 REZ=0 KA 
"9047 REM JD 
*9048 REM SET SOUND ADDRESSES Jc 
*9049 REM JD 
«9050 FR(0)-54272 OK 
+9055 FR(1)=1+FR(0) :GR=FR(0)+4:AD=GR+1 CI 
*9057 REM JD 
+9058 REM POKE ADSR ENVELOPE FE 
“9059 REM JD 
*9060 POKE AD,ATZ OR DYZ KD 
“9065 POKE AD+1,SN% OR REZ GJ 
*9066 REM JD 
*9067 REM SET UP GATE EN 
*9068 REM WAVEFORMS (ADD VALUES): GB 


+9069 REM TRIANGLE ON=16; SAWTOOTH ON=32; 
PULSE ON=64 (SET WIDTH!); NOISE ON-128 IL 
“9070 WF2-32 NP 
*9075 GX-1 OR WF2:UGZ-G2 AND 254 EJ 
*9077 REM JD 
“9078 REM SET PULSE WIDTH MG 
*9079 REM LOW BYTE, HIGH BYTE FB 
“9080 POKE GR-2,200:POKE GR-1,3 HO 
“9096 REM JD 
“9097 REM SET UP PITCH ARRAY DK 
“9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 
“9099 REM C КЕ 
“9100 X%=3:GOSUB 9190 BK 


*9101 DATA 12,1,24,2,48,4,97,8,195,16,135 


133,15,67,30,134 IF 
“9102 REM D NH 
*9103 X%=4:GOSUB 9190 PH 


*9104 DATA 45,1,90,2,180,4,104,9,209,18,1 


62,37,69,75, 139, 150 РА 
-9105 REM E (F-FLAT) MH 
*9106 X%=5:GOSUB 9190:Y2-13:GOSUB 9195 DN 


“9107 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250,168 


*9108 REM F (E-SHARP) DB 
*9109 X%=6:GOSUB 9190:Y2-19:GOSUB 9195 СЕ 
*9110 DATA 102,1,204,2,152,5,48,11,96,22, 

193,44,131,89,6,179 IL 
*9111 REM G NI 
*9112 X%=7:GOSUB 9190 AO 


*9113 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 

“9114 REM А 

9115 X%=1:GOSUB 9190 

“9116 DATA 195,1,134,3,12,7,24,14,49,28,9 
9,56,199,112, 143, 225 РІ 
-9117 REM B NF 
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+9118 X%=2:GOSUB 9190 PF 
+9119 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 
“9120 REM D-FLAT (C-SHARP) JL 
+9121 X%=11:GOSUB 9190:Y%=17:GOSUB 9195 ММ 
«9122 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 
+9123 REM E-FLAT (D-SHARP) FD 
*9124 X%=12:GOSUB 9190:Y2-18:GOSUB 9195 1р 
*9125 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191,79,126,159 FB 
+9126 REM G-FLAT (F-SHARP) HH 
+9127 X%=14:GOSUB 9190:Y2-20:GOSUB 9195 НК 
*9128 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 
*9129 REM A-FLAT (G-SHARP) 

+9130 X%=8:GOSUB 9190:Y%=21:GOSUB 9195 
+9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 РА 
+9132 REM B-FLAT (A-SHARP) ЕР 
+9133 X%=9:GOSUB 9190:Y%=15:GOSUB 9195 DD 
+9134 DATA 221,1,187,3,119,7,239,14,2: 1,2 
9,190,59,124,119, 248,238 CN 
*9135 REM C-FLAT CH 
*9136 X%=10:GOSUB 9190 DL 
*9137 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 
*9138 REM B-SHARP 
*9139 X%=16:GOSUB 9190 CJ 
“9140 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 NM 
*9150 FOR І-0 TO 147 STEP 21:PIZ(I,0)-0:P 
IZ(I,1)-0:NEXT 

*9185 GOTO 9200 

+9189 REM READ PITCHES NA 
“9190 FOR I= TO 147 STEP 21:READ PIZ(I4X 
2,0) ,PIZ(I4X2, 1) : NEXT: RETURN 

*9194 REM IDENTICAL PITCHES 

“9195 FOR I=) ТО 147 STEP 21:PIZ(I4Y2,0)- 


HE 


GN 


IN 


FM 


GA 


PIZ(I4X2,0) :PIZ(1+Y%,1)=PI%(1+X%,1) LN 
“9196 NEXT:RETURN EJ 
“9197 REM JD 
“9198 REM SET UP DURATIONS ME 
“9199 REM JD 
9200 FOR I= TO 9:READ DUZ(I):NEXT MB 


+9205 DATA 16,32,48,64,96,128,160,192,256 


9320 PD 
“9296 REM JD 
“9297 REM SET FILTER AND VOLUME BN 
*9298 REM FILTER FREQUENCY DE 


*9299 REM LOW BYTE (0-7) ХА; HIGH BYTE (0 


-255) Y% РА 
«9300 Х2-0:Ү%-100 GD 
“9305 POKE 54293,X%:POKE 54294, Y% KJ 
“9308 REM FILTER ON? DD 
“9309 REM VOICE 1 ON-1 FK 
+9310 Х2-0 FM 
*9318 REM FILTER RESONANCE CE 

AHOY! 91 
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*9319 REM PEAK VOLUME (O0-LOW, 15=HIGH) FH 
*9320 YZ-14 JL 
*9325 Ү4-Ү4%16:РОКЕ 54295,X% OR YZ MG 
*9328 REM SELECT FILTER TYPE CP 
*9329 REM LOW-PASS-1;BAND-PASS-2;HIGH-PAS 

S=4;LO-BAND=3 ; HI-BAND=6 ; ALL=7 MH 
“9330 Х4-1 ЕР 
+9335 XZ=X2*16 LC 
+9337 REM JD 
“9338 REM SELECT OVERALL VOLUME FJ 
+9339 REM 15-HIGH, O-LOW PB 
*9340 Y2-15 JK 
*9345 POKE 54296,X% OR Y% HN 
"9496 REM JD 
"9497 REM SET MELODY EJ 
9498 REM JD 
“9509 REM HOW MANY PHRASES? (MINUS ONE) МА 
“9510 ES%=5 KC 
"9514 REM JD 
*9515 REM MELODY STRINGS JJ 
*9516 REM JD 
*9517 REM EACH PHRASE HAS ONLY ONE DUZ(PH 


2) STRING, NO MATTER HOW MANY VOICES 
*9518 REM EACH PHRASE HAS ONE ME$(PHZ,VCZ 


CE 


) & ONE MV$(PHZ,VC%) STRING PER VOICE МВ 
*9519 REM PHRASE 0 IP 
+9520 MD$(0) - " [9"0" J4 [9"0" 4" FA 


+9521 ME$(0)-"G[s F]GE[s D]ECBCGEFGABCDEF 
р" 


19522 MV$(0)="6[6" "]1565[5" "]6[4" "]" 
+9529 REM PHRASE 1 10 
+9530 MD$(1)e"[9"0" JA [8"0" Jo" NA 
-9531 ME$(1)="FEFD[s C]DB[s A]BGG[s F]GAG 


FEDC" OF 
+9532 MV$(1)="6[5" "]5[3" "Jers" пу" PF 
+9539 REM PHRASE 2 JB 


+9540 MD$(2)«" 70" J15[ "0" ] S" 
+9541 ME$(2)="GC@GC@GC@GCDCBECDE" 
+9542 М/5(2)-"34 34 34 34 34 " 
+9549 REM PHRASE 3 

+9550 MD$(3)="[7"0"]15[7"0"]15" 
+9551 MES(3)="GB@GB@GB@GBCBAGBCE" 
+9552 MV$(3)-"3[10" "J43[3" "Ја" 
+9559 REM PHRASE 4 

19560 MDS(4)-"[9"1"]s[9"1"]5" 
“9561 MES(4)="[3"D"}[3"4"}(3"C" JB[3"D"](3 
fn] anch уви 


*9926 XZ=ASC(MID$(A$,I,1)) 
+9930 IF Х2<72 THEN XZ-XX-64:1F XZ«0 THEN 


IP 


Х4-0 Ер 
9931 IF X%>192AND X%<200 THEN XZ=X%-178 GP 
+9932 IF X%=176 THEN Х2-8 IF 
*9933 IF Х4-191 THEN X%=9 FN 
*9934 IF X%=188 THEN Х%-10 II 
*9935 IF X%=172 THEN XZ=11 IM 
*9936 IF Х2-177 THEN X2-12 LA 
*9937 IF X%=187 THEN X%=13 IE 
*9938 IF Х4-165 THEN Х2-14 HL 
*9939 IF X%>21 THEN Х%-0 DL 
“9940 V$-MID$(MV$(PH),I,1):IF V$<>" " THE 
N YZ-21*VAL(V$) LJ 
+9950 Х4-Х24Ү2 MJ 
*9970 ME$(PH)=ME$(PH)+CHR$(X%) CP 
*9975 NEXT:NEXT EF 
:9980 РН=) HP 
“9990 RETURN IM 

BROKEN MELODY 
*1 REM "BROKEN MELODY" JC 


*2 REM THREE VOICES WAIT FOR USER INPUT B 
ETWEEN PHRASES 
*3 REM USE THIS ROUTINE FOR A SERIES OF R 


EWARDS NG 
*4 REM JD 
*5 REM PLAYS "I'M ON MY WAY" (FROM "PAINT 
YOUR WAGON" BY LERNER & LOEWE) MK 
*6 REM JD 
“10 GOSUB 9000:GOTO 100 LC 
“60 FOR N=1 TO LEN(MD$(PH)) FJ 
“61 FOR VC= ТО EVZ 6G 


«62 POKE GR(VC),UGZ(VC):REM NORMAL NOTES; 
DON'T POKE UGZ FOR LEGATO AE 
*63 FOR 1-0 TO 1 JB 
+64 POKE FR(VC,I),PIZ(ASC(MIDS(MES(PH, по 
»N,1)),1) 
«65 NEXT:NEXT se 
+66 FOR VC=EV% TO 0 STEP -1:РОКЕ GR(VC),G 
%(VC) :NEXT MB 
s FOR 1-0 TO DUZ(VAL(MIDS(MD$(PH),N, M 
NEXT 
«68 REM FOR ҮС-0 TO EVZ:POKE GR(VC), M 
C):NEXT:REM STACCATO NOTES BO 


+69 NEXT:PH=PH+1:IF РН>Е52 THEN РН-0 IJ 


IB +70 FOR ҮС-0 TO БУЖ:РОКЕ GR(VC),UGZ(VC):N 


+9562 Мү$(4)="5 4 5 45 4 5 4" LG  EXT:RETURN EP 
*9569 REM PHRASE 5 JC +100 PRINT "PRESS SHIFT FOR PHRASE "PH JB 
*9570 MD$(5)s"[9"1"]5[8"1"]8" KK +110 PRINT "ANY OTHER KEY TO STOP" LG 
+9571 ME$(5)="[3"D"][3"A"][3"C" ]BD[s C]DE 120 IF PEEK(203)<>64 THEN END DG 
DCBAG" KG +130 IF PEEK(653)-0 THEN 120 GC 
+9572 MV$(5)="5 4 5 4515" "14 " AI +14) GOSUB 60 PC 
+9898 REM CONVERT STRINGS TO USABLE FORM IG “190 GOTO 100 CF 
*9899 REM JD *8997 REM JD 
*9900 FOR PH=( TO ESZ EI +8998 REM SET UP SOUND SHAPE FD 
«9905 А$=МЕ$(РН):МЕ$(РН)="" JB +8999 REM т 


+9910 FOR І-1 TO LEN(A$) 
92 
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СЕ 


2),GR(2) ,FR(2,1),AD(2) 

+9001 DIM DUZ(9),PIZ(168,1),AK2(2), DIM 
,SNZ(2) ,REZ(2) „МЕ? (2) 

“9007 REM 

+9008 REM ATTACK—VOICES 0,1,2 

+9009 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER-SHARPER ATTACK OK 
*9010 АК2(0)-0:АК2(1)-0:АК2(2)-0 CP 
*9015 FOR I=) TO 2:AKZ(I)-AKZ(I)*16:NEXT FF 
*9017 REM JD 
*9018 REM DECAY—-VOICES 0,1,2 PK 
*9019 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER-FASTER DECLINE GA 
+9020 DYZ(0)=7:DY%(1)=3:DY4(2)=3 

“9027 REM 

“9028 REM SUSTAIN--VOICES 0,1,2 

“9029 REM NUMBER FROM 0 TO 15; LOWER NUMB 
ER=SOFTER VOLUME DURING SUSTAIN 

+9030 SN2(0)-0:SN2(1)20:SN2(2)-0 EG 
+9035 FOR I-0 TO 2:SNZ(I)-SNZ(I)*16:NEXT BD 
“9037 REM JD 
9038 REM RELEASE—VOICES 0,1,2 

“9039 REM NUMBER FROM 0 TO 15; LOWER NUMB 


E 
кс 


AN 
JD 
FC 
JM 


OK 


ER=FASTER DROP TO SILENCE АТ END PJ 
“9040 REZ(0)=0:RE%(1)=3:REZ(2)=5 BG 
*9047 REM JD 
*9048 REM SET SOUND ADDRESSES JC 
*9049 REM 


°9050 FR(0,0)254272:FR(1,0)254279:FR(2, 2 
254286 

+9055 FOR I= TO 2:FR(I,1)=1+FR(I,9): ac 
)=FR(1,0)+4:AD(I)=GR(I)+1:NEXT HJ 


+9057 REM JD 
+9058 REM POKE ADSR ENVELOPES JL 
+9059 REM 


ORE І-0 TO 2:РОКЕ AD(I),ATZ(I) OR Шен 
"9065 POKE AD(I)+1,SN%(I) OR REZ(I):NEXT Ж 
“9066 REM т 
“9067 REM SET UP GATES JN 
*9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 
LUES): 
“9069 REM TRIANGLE ON=16; SAWTOOTH ON=32; 
PULSE ON=64 (SET WIDTH!); NOISE ON=128 IL 
“9070 WFZ(0)=32:WFZ(1)=64:WFZ(2)=64 LH 
«9075 FOR I=) TO 2:GZ(I)-1 OR WFZ(I): га, 
I)=GZ(I)AND 254:NEXT 


“9077 КЕМ D 
“9078 REM SET PULSE WIDTHS AC 
+9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 

TE MG 
“9080 POKE GR(0)-2,200:POKE GR(0)-1,3 JD 
*9081 POKE GR(1)-2,200:POKE GR(1)-1,3 LD 
*9082 POKE GR(2)-2,200:POKE GR(2)-1,3 EP 
“9096 REM JD 
+9097 REM SET UP PITCH ARRAY DK 
+9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 
“9099 REM C NE 


<9100 X%=3:GOSUB 9190 BK 
*9101 DATA 12,1,24,2,48,4,97,8,195,16,135 
„33,15,67,30, 134 IF 
-9102 REM D NH 
*9103 X%=4:GOSUB 9190 PH 
-9104 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 РА 
+9105 REM E (F-FLAT) 
*9106 X%=5:GOSUB 9190:Y2-13:GOSUB 9195 
*9107 DATA 81,1,163,2,71,5,143,10,31,21,6 


MH 
DN 


2,42,125,84,250,168 HM 
+9108 REM F (E-SHARP) DB 
+9109 X%=6:GOSUB 9190:Y2-19:GOSUB 9195 СЕ 
+9110 DATA 102,1,204,2,152,5,48,11,96,22, 

193,44,131,89,6,179 IL 
+9111 REM С NI 
+9112 X%=7:GOSUB 9190 A0 


*9113 DATA 145,1,35,3,71,6,143,12,30,25,6 


0,50,121,100,243,200 GM 
“9114 КЕМ A NC 
*9115 X%=1:GOSUB 9190 РА 


“9116 DATA 195,1,134,3,12,7,24,14,49,28, > 
9,56,199,112, 143, 225 

*9117 REM B us 
*9118 X%=2:GOSUB 9190 PF 
*9119 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151, 126, 46, 253 CF 
“9120 REM D-FLAT (C-SHARP) 

*9121 X%=11:GOSUB 9190:Y2-17:GOSUB 9195 
*9122 DATA 28,1,56,2,112,4,225,8,195,17,1 


JL 
NN 


34,35,12,71,24,142 KJ 
*9123 REM E-FLAT (D-SHARP) FD 
*9124 X%=12:GOSUB 9190:Y2-18:GOSUB 9195 1р 


*9125 DATA 62,1,125,2,251,4,247,9,239,19, 

223,39,191,79,126,159 FB 
*9126 REM G-FLAT (F-SHARP) HH 
*9127 X%=14:GOSUB 9190:Y%=20:GOSUB 9195 НК 
*9128 DATA 123,1,246,2,237,5,218,11,181,2 


3,107,47,214,94,172,189 HG 
*9129 REM A-FLAT (G-SHARP) HE 
*9130 X%=8:GOSUB 9190:Y2-21:GOSUB 9195 — GN 


“9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 РА 
*9132 REM B-FLAT (A-SHARP) FP 
*9133 X%=9:GOSUB 9190:Y2-15:GOSUB 9195 DD 
*9134 DATA 221,1,187,3,119,7,239,14,223,2 


9,190,59,124,119,248,238 CN 
*9135 REM C-FLAT CH 
*9136 X%=19:GOSUB 9190 DL 


*9137 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 Al 
+9138 REM B-SHARP 
+9139 X%=16:GOSUB 9190 CJ 
*9140 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 

*9185 GOTO 9200 

*9189 REM READ PITCHES 

*9190 FOR I= TO 147 STEP 21:READ РІЯ(І+Х 


IN 


FM 
NA 
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2,0) ,PIZ(I4X2, 1) : NEXT: RETURN 

*9194 REM IDENTICAL PITCHES 

*9195 FOR I=) TO 147 STEP 21:PIZ(I4Y2,0)- 
PIZ(I*X2,0):PIZ(I4Y2,l)ePIZ(I4X2,1) 
*9196 NEXT:RETURN 

*9197 REM 

*9198 REM SET UP DURATIONS 

*9199 REM 

+9200 FOR I= ТО 9:READ DUZ(I):NEXT 

*9205 DATA 10,128,256,384,512,640,768,102 


2з 


СЕЕЕ ЕЕ 


4,1152,1280 КЕ 
*9296 REM JD 
*9297 REM SET FILTER AND VOLUME BN 


*9298 REM FILTER FREQUENCY 
*9299 REM LOW BYTE (0-7) XZ; HIGH BYTE (0 


DE 


-255) Y% РА 
“9300 Х4-/0):Ү2-100 GD 
*9305 POKE 54293,X%:POKE 54294,Y% KJ 
*9308 REM FILTER ON? DD 


+9309 REM VOICE 1 ON=1; 2 ON=2; 3 ON=4; 1 
&2 ON=3; 2&3 ON=6; ALL ON=7 

+9310 X%=0 

+9318 REM FILTER RESONANCE 


+9319 REM PEAK VOLUME (Q=LOW, 15=HIGH) FH 
“9320 Үд=14 JL 
*9325 YX-YZ2*16:POKE 54295,X% OR YZ MG 
“9328 REM SELECT FILTER TYPE cP 


*9329 REM LOW-PASS-1; BAND-PASS=2;HIGH-PAS 
S=4;LO-BAND=3 ; HI-BAND=6 ; ALL=7 
“9330 Х4-1 


MH 

FP 
“9335 X%=X2*16 LC 
*9337 REM JD 
*9338 REM SELECT OVERALL VOLUME FJ 
*9339 REM 15-HIGH, ОЕМ PB 
“9340 Y%=15 JK 
*9345 POKE 54296,2 OR YZ HN 
*9496 REM JD 
*9497 REM SET MELODIES HERE PA 
*9498 REM JD 
*9499 REM HOW MANY VOICES? (MINUS ONE) СМ 
+950) EV%=2 KA 
*9508 REM JD 
9509 REM HOW MANY PHRASES? (MINUS ONE) МА 
“9510 ESZ=8 XH 
*9514 REM JD 
*9515 REM MELODY STRINGS JJ 
*9516 REM JD 
*9517 REM EACH PHRASE HAS ONLY ONE DUZ(PH 
) STRING, NO MATTER HOW MANY VOICES A0 
*9518 REM EACH PHRASE HAS ONE ME$(PH,VC) 


& ONE MV$(PH,VC) STRING PER VOICE IP 
*9519 REM PHRASE 0 
*9520 М0$(0)="[16"0"]" 


*9521 ME$(0,0)-"[3"F"]GAFGG[3"F"]GAFGE" AD 
*9522 MV$(0,0)="6[15" "|" KK 
+9523 ME$(%,1)="CCDCGD[4"C" ]DCGDCC" JN 
+9524 MV$(0,1)="4545354545453545" PG 


+9525 MES$((,2)="FAEAGBC[c B]FADAGBC[c B]" NH 
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+9526 MV$(0,2)="3434343434343434" GH 
*9529 REM PHRASE 1 IO 
+9530 М0$(1)="[16"0"]" XL 
+9531 ME$(1,0)="[3"F" ]GAFGEF[7"@" ]" OL 
+9532 MV$(1,0)="6[15" "]" NL 
*9533 ME$(1,1)="FCECDBCCFCECDACA" PJ 
*9534 МУ5(1,1)-"45454 545454 5" JH 
+9535 ME$(1,2)="FAEADBC[c B]FAEADFCF" CM 
+9536 MV$(1,2)="3434343434343435" DH 
+9539 REM PHRASE 2 JB 
*9540 М0$(2)="[16"0"]" LC 


*9541 ME$(2,0)="[3"[c B]"]CD[c B]C@[3"[c 
B]"JCD[c BJCA" IL 
9542 MV$(2,0)="6 7 67 6 7 676" 

“9543 ME$(2,1)="@F@FCGFF@FGFCGFF" 

+9544 MV$(2,1)=" 5 4545[4" "|4545" 

+9545 ME$(2,2)="[c B]DGDCEF[c E][c B]DGDC 
EF[c E]" XA 
*9546 MV$(2,2)="'3535353535353535" XB 
*9549 REM PHRASE 3 JA 
«9550 М0$(3)="[14"0"]" CM 
Bp ,0)»"[3"[c B]"JCD[c B]CA[c pp 


*9552 MV$(3,0)="6 7 676[6" "1" m 
+9553 ME$(3,1)="[c BIPAPSEFF( B]FAFGF" JM 
9554 MV$(3,1)="45454545454545" LF 


ще МЕ$(3,2)="[с B]DADGCF[c E][c B]DADG 
" МА 


“9556 MV$(3,2)="35353535353535" 
+9559 REM PHRASE 4 
“9560 М0%(4)-"|16"0 DA 
*9561 ME$(4,0)-"F[c BJC@C[3"@"]D[c B]C[5" 
e" PF 
*9562 MV$(4,0)="6 7[6" "]67[5" "1" CF 
RI ME$(4,1)-"[3"F"]AG[c B]AADGFAG[c B] 
T 


NJ 
JD 


«9564 MV$(4,1)="45454545 4 54545" 
9565 ME$(4,2)="FDFFGEAF[c B][3"F"]GEAF" Ж 


+9566 MV$(4,2)-3535353534353535" DK 
+9569 REM PHRASE 5 JC 
+9570 MD$(5)="[18"0"]" A0 
+9571 ME$(5,9)="Cl AFG[7"@"]" EC 
«9572 MV$(5,0)="6[17" "]" ос 
+9573 ME$(5,1)="@BGEGFGE@BFECCAFGC" MA 
+9574 MV$(5,1)=" 4 54545 4 5453[3" "]" — NN 
+9575 ME$(5,2)="@AECDBECGACFC[c B]AFGF" ВІ 
+9576 MV$(5,2)-" 4 54 534343 2 1" MA 
+9579 REM PHRASE 6 JF 
+9580 М0$(6)="[16"0"]" NO 
-9581 MES(6,0)-"[3"F"]GAFGO[S"F"]GAFGE" ОВ 
+9582 МҮ$(6,0)="6[15" "]" NA 
+9583 ME$(6,1)="CCDCGD[4"C" ]DCGDCC" XD 
+9584 MV$(6,1)="4545354545453545" EM 


+9585 ME$(6,2)="FAEAGBC[c B]FADAGBC[c B]" oN 
+9586 М/5(6,2)-"3434343434343434" 


9589 REM PHRASE 7 ae 
+9590 М0$(7)="[15"0"]" IE 
9591 ME$(7,()="[3"F" ]GAFGEC[3"@"]c@e" — IG 
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+9592 MV$(7,0)="6[11" "]7 " 
9593 ME$(7,1)="FCECDBCC@A@[c B]CF@" 


LF 
BP 


+9594 MV$(7,1)="45454 5 4 5 " AL 
+9595 MES(7,2)-"FAEADBC[c B]FFGRA[c E]8" MK 
+9596 МУ5(7,2)-"34343434343435 " ІМ 
+9599 REM PHRASE 8 JH 


-9600 MD$(8)-" [17"0"]" 
пей ие GU ERG Ic аа 
WE А 


+9602 MV$(8,0)="7[3" "]6[8" "]7[3" "]" 
*9603 ME$(8,1)="[c B]CACA@C@CFDC[c B]AGFG 
cL 


BN 


+9604 MV$(8,1)="5[8" "]46 5 4" CA 
+9605 MES(8,2)="DCFCFCAC[c B]F[c B]AGFGFGB 


+9606 MV$(8,2)="545354 3435[4" "]3 " 
*9897 REM 

“9898 REM CONVERT STRINGS TO USABLE FORM 
*9899 REM JD 
“9900 FOR РН= TO ES%:FOR ҮС-0 TO EVZ 
*9905 A$=ME$(PH, VC) :ME$(PH,VC)="" 

9910 FOR I=1 TO LEN(A$) 

9920) X%=ASC(MID$(A$,I,1)) 

*9930 IF Х2<72 THEN Х4-Х%-64:ІЕ Х2<0 THEN 


Х4-0 Ер 
“9931 IF X%>192AND Х2<200 THEN X%=X%-178 СР 
*9932 IF X%=176 THEN X%=8 IF 
*9933 IF X%=191 THEN X%=9 FN 
*9934 IF X%=188 THEN X%=10 II 
*9935 IF X%=172 THEN X%=11 IM 
*9936 IF XZ-177 THEN X%=12 LA 
*9937 IF X%=187 THEN Х%-13 IE 
*9938 IF X%=165 THEN Х%-14 HL 
*9939 IF X%>21 THEN X30 DL 
+9950 V$=MID$(MV$(PH,VC),I,1):IF V$O" " 


THEN YZ-21*VAL(V$) PG 


+9960 IF Х2<20 THEN Х4-Х4-/2 CK 
+9970 ME$(PH, VC) -ME$ (PH, VC) 4CHR$ (ХХ) oc 
“9975 NEXT:NEXT:NEXT PI 
“9980 РН=0 НР 
+9991) RETURN ІМ 


QUAD-PRINT 


FROM PAGE 47 

45 PRINT" [CLEAR] [DOWN] [RVSON] chen m4 
PRINT (C) 1984 BY MICHAEL BEUTJER " 

+10 РОКЕ55,0:Р0ОКЕ56,28 

+20 PRINT"[3" [DOWN]")] [WHITE] SELECT YOUR P 
RINTER ТҮРЕ. [DOWN ] [ DOWN ]" PN 

30 PRINI"PRESS Fl FOR EPSON RX/FX 80 OR 
100. 

140 PRINI"[DOWN]PRESS ЕЗ FOR COMMODORE 15 
26. 


AH 
CE 


+50 GETA$:IFA$=""THENS9 
60 IFASC(A$)-133THENB$-"QP E*":PRINT"[CL 
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FO 


EAR][10"[DOWN]"][6" "]LOADING EPSON/GEMI 
NI VERSION" а, 
“70 IFASC(A$)-134THENB$-"QP C*":PRINT"[CL 
EAR][10"[DOWN]"][5" "]LOADING COMMODORE 
1526 VERSION" 

*75 IFB$-""THEN5O 


NL 
PN 


EG *80 POKE53280,6:POKE53281,14:PRINT" [HOME] 


i 7113" [DOWN] "JLOAD"CHR§ (34) BSCHRS (34) ^ 
FO 
n PRINT" [HOME ]" : POKE198,, 5:FORX=9T04:REA 
DA:POKE631«X, A: NEXT: END со 
+500 DATA13,31,82,213,13 со 


1526 VERSION 

*5 PRINT"[CLEAR] [4" [DOWN]"] [8" "]INITIALI 
ZING[3". "]" 

“10 GOSUB5760 

*20 POKE53280, 0: POKE53281 ,0: POKE46, 15: PR 
INT"[CLEAR][DOWN][DOWN][12" "]QUAD-PRINT 

1526" EF 

*30 DIMB$(4):PRINT"[DOWN][9" "](C) 1984 B 
Y M. BEUTJER" KK 

“40 ІЕВ-(/ТНЕМВ-1:007070 

*50 PRINT"[CLEAR][DOWN] РІС 1 (UPPER LEFT 

) : "B$(1):PRINT" PIC 2 (UPPER RIGHT) : 
"B$(2) 

+60 PRINT" PIC 3 (LOWER LEFT ) : "B$(3):P 
RINT" PIC 4 (LOWER RIGHT) : "B$(4) 

*70 PRINT"[DOWN][RIGHT][RVSON] Fl = DISP 
LAY 1 [RVSOFF][5" "][RVSON] F2 = LOAD 1 
[3" ту" 

+80 PRINT"[DOWN][RIGHT][RVSON] ЕЗ = DISP 
LAY 2 [RVSOFF][5" "][RVSON] F4 = LOAD 2 
[з" "у" 

*90 PRINT"[DOWN][RIGHT][RVSON] F5 = DISP 
LAY 3 [RVSOFF][5" "][RVSON] F6 = LOAD 3 
[3" ту" РВ 


СЕ 
см 


ММ 


ЕР 


NN 


FJ 


*100 PRINT"[DOWN][RIGHT][RVSON] F7 = DIS 
PLAY 4 [RVSOFF][5" "][RVSON] ЕВ = LOAD 
&[з" "]" CF 


+110 PRINT"[DOWN][RIGHT][RVSON] [EP] = 
DUMP POS [RVSOFF][5" "][RVSON] [BACKAR 
ROW] = DUMP МЕС " DM 
+120 PRINT" [DOWN] [RIGHT](5" ," ][RvsoN] [3" 
"]* - QUICK VIEW SCREENS " ос 
+130 m "][RVSON][3" 
"8 = SWAP SCREENS[7" " HI 
-140 PEDI" [Do са" "J [ WSON][3" 
") [UPARROW] = SINGLE PRINT[7" "][DOWN]" IK 
+150 GETA$: IFA$<>""THEN159 40 


+160 GETA$:IFA$-""THEN160 НК 
+170 А-А5С(А5) СЕ 
+180 IFA=92THENSYS49209:GOTO40 EG 


+190 IFA=95THENSYS49205:GOTO40 
:200 IFA=42THENA=1 :GOSUB549:SYS49430:SYS4 
9188:С0Т0300 
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+210 IFA-GATHEN330 CL +650 DATA 32,141,17,208,173,24,208,73 ІК 


*220 ІЕА-94ТНЕМ550 DI +660 DATA 8,141,24,208,96,169,255,208 NP 
*230 ІҒА<133ТНЕМ160 EE *670 DATA 2,169,0,141,33,192,32,117 ND: 
+24) ТЕА>140ТНЕМ160 FK •680 DATA 193,169,0,133,251,169,64,133 ЕМ 
+250 A-A-132:1FA»4THENGOSUBA60: СОТО40 IB +690 DATA 252,169,0,141,32,192,169,96 KH 
+26) GOSUB540:SYS49430:SYS49188 MC +700 DATA 141,31,192,169,25,141,29,192 HJ 
“270 GETA$: IFA$<>""'THEN270 DB +710 DATA 32,121,192,169,0,133,251,169 DD 
“280 GETA$:IFA$-""THEN280 HJ +720 DATA 128,133,252,169,0,141,32,192 DH 
290 5Ү549188:607040 OB +730 DATA 169,160,141,31,192,169,25,141 GD 
+300 GETA$:A=ASC(A$+CHR$(9) ) : IFA-32THENSY “740 DATA 29,192,32,121,192,32,45,194 IA 
549188:00Т040 HO .750 DATA 96,32,197,193,32,178,192,165 01 
+310 IFA<1330RA>136THEN300 MB +760 DATA 251,72,165,252,72,173,32,192 СЕ 


+320 A-A-132:G0SUB540:SYS49430:GOTO300 ВІ +770 DATA 133,251,173,31,192,133,252,32 РЕ 
-330 PRINT"ENTER THE NUMBERS OF THE SCREE .780 DATA 178,192,165,251,141,32,192,165 HF 


Ns" JB +790 DATA 252,141,31,192,104,133,252,104 PH 
1340 PRINT"YOU WANT TO SWAP (1-4)." NL +800 DATA 133,251,32,225,255,208,5,104 16 
+350 INPUT"IST SCREEN : "ҘА IC -810 DATA 104,76,117,192,206,29,192,208 LP 
“360 INPUT"2ND SCREEN : ";B HP -820 DATA 200,96,169,40,141,30,192,160 EM 
“370 IFA<1ORA>4ORB<1ORB>4THEN330 IJ -830 DATA 0,162,0,120,169,46,133,1 LJ 
+380 GOSUB540:SYS49430 AJ +840 DATA 177,251,141,34,192,169,47,133 РН 
*390 POKE49153, 16*(2+A*2) :POKE49152,16*(2 >850 DATA 1,88,14,34,192,62,21,192 LJ 
4B*2) AN +860 DATA 232,224,8,208,245,200,192,8 ЕЕ 
*40) POKE49155,2244(B-1)*4:POKE49154,224« -870 DATA 208,223,24,165,251,105,8,133 HJ 
(A-1)*4 LK +889 DATA 251,165,252,105,0,133,252,162 ОМ 
*410 SYS49430 JI +890 DATA 0,32,219,193,206,30,192,208 HL 
+420 POKE49152,32:POKE49153,16*(2+B*2):PO +900 DATA 198,96,169,1,162,8,160,0 ED 
KE49155, 224 (A-1)*4:POKEA9154, 4 JE +910 DATA 32,186,255,173,4,192,162,5 JD 
*430 SYS49430 JI +920 DATA 160,192,32,189,255,169,0,170 LP 
*440 кву): B$(A)-B$(B) :B$(B)-A$ JG “930 DATA 160,28,32,213,255,169,1,32 DO 
+450 СОТОЩ PE +949 DATA 195,255,32,204,255,96,160,0 ЈС 
+460 REM бет FILENAME AND LOAD IT. NO “950 DATA 132,251,174,1,192,134,252,132 0J 
*470 A=A-4:PRINT" ENTER FILENAME OF PIC"A -960 DATA 253,174,0,192,134,254,142,34 ЕС 
": "; sINPUTA$ AB +970 DATA 192,238,34,192,200,192,32,208 МА 
+480 IFLEN(A$)>16THEN479 JM +980 DATA 248,160,0,120,169,46,133,1 FE 
+490 B$(A)-A$ AE +999 DATA 177,253,145,251,169,47,133,1 GD 
+500 POKE49156, LEN(A$) :POKE49152,32:POKE4 “1000 DATA 88,200,208,239,230,252,230,254 LG 
9153, 16*(2+A*2) OF +1010 DATA 165,254,205,34,192,208,228,173 EE 
+520) FORX=1TOLEN(A$) :POKE491564+X,ASC(MID$ 1020 DATA 3,192,133,252,173,2,192,133 АВ 
(A$,X,1)) : NEXT NF -1030 DATA 254,162,4,120,169,40,133,1 HP 
+530) SYS49394 :POKE49155,224+(A-1)*4:POKE4 1040 DATA 177,253,145,251,200,208,249,23 
9154, 28:SYS49430:RETURN NB 0 сі, 
+540 POKE49153,32:POKE49152,16*(2+A*2):PO +1050 DATA 252,230,254,202,208,242,169,47 GG 
КЕД9154,224+(А-1)#4:РОКЕД9155 „4: RETURN МС +1960 DATA 133,1,88,96,0,169,4,170 MB 
+550 INPUT"ENTER NO. OF PICTURE TO PRINT +1070 DATA 160,255,32,186,255,169,0,32 IA 
(1-4) : "5A NB .1080 DATA 189,255,32,192,255,176,40,169 NE 
+555 PRINT"PRESS P FOR POSITIVE, N FOR NE -1090 DATA 6,168,162,4,32,186,255,169 КТ 
GATIVE " DO -1100 DATA 0,32,189,255,32,192,255,176 РК 
+560 GETA$: IFA$<"N"ORA$>"P"THENS60 CF -1110 DATA 22,169,5,168,162,4,32,186 AK 
+562 P=49788: IFA$="P"THENP=49792 DF +1120 DATA 255,169,0,32,189,255,32,192 ЕС 
+565 POKE49152,16*(2+A*2):SYSP:GOT040 РВ +1130 DATA 255,176,4,32,176,193,24,96 СВ 
+570 1-49152 AJ +1140 DATA 162,6,32,201,255,169,21,32 КН 
+580 READ A:IF A=256 THEN RETURN HN -1150 DATA 210,255,169,13,32,210,255,32 FL 
+590 POKE І,А:1=1+1:6070580 CD -1160 DATA 174,255,32,204,255,162,4,32 DD 
*600 DATA 0,0,0,0,0,60,162,0 OH -1170 DATA 201,255,169,13,32,210,255,32 DJ 
-610 DATA 32,126,197,169,76,44,169,96 ІН -1180 DATA 174,255,32,204,255,169,0,141 DO 
+620 DATA 133,138,169,44,133,0,0,0 MD -1190 DATA 116,193,96,32,93,194,240,105 KC 
*630 DATA 0,0,0,0,0,0,0,0 FG +1209 DATA 162,4,32,201,255,169,141,32 ЕК 
*640 DATA 0,0,0,0,173,17,208,73 II +1210 DATA 210,255,32,174,255,32,204,255 ІМ 
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*1220 
*1230 
*1240 
*1250 
*1260 
*1270 
+1280 
“1290 
“1300 
“1310 
+1320 
+1330 
+1340 
+1350) 
"1360 
“1370 
“1380 
+1390 
1400 
+1410 
1420 
+1430 
1440 
+1450 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


162,5,32,201,255,162,0,189 
21,192,77,33,192,32,210,255 
232,224,8,208,242,32,174,255 
162,4,32,201,255,174,116,193 
240,9,169,32,32, 219,255,202 
76,16,194, 238,116,193, 169, 254 
32, 210,255,32, 174,255, 32,204 
255,32,109,194,96,32, 197,193 
162,6,32, 201,255,169, 24,32 
210,255,169, 13,32, 210, 255,32 
174, 255,32, 204, 255,32, 231,255 
96, 162,4,32, 201,255, 169,254 
32,210,255,32,174, 255,32, 204 
255,238,116, 193,96, 162,0,189 
21,192,221,123,194,208,5,232 
224,8,208,243,96,162,0,189 
21,192,157,123,194,232,224,8 
208,245,96,0,169,255,208,2 
169,0,141,33,192,32,117,193 
169,0,133,251,173,0,192,133 
252,169,25,141,29,192,32,197 
193,32,178,192,32,225,255,208 
3,76,169,194,206,29,192,208 
237,32,45,194,96,256 


EPSON/GEMINI VERSION 
Program as listed is for Epson printers. See introduc- 
tory article for changes required for Gemini printers. 
$5 PRINT" [CLEAR ][ A" [DOWN]" ] [8" "JINITIALI 
ZING[3". "]" CE 
+10 60508540 
*20 РОКЕ53280,0:РОКЕ53281,0:РОКЕ646,15:РЕ 
INT"[CLEAR] [DOWN ] [DOWN][14" " JQUAD-PRINT 
NE 
*30 Dmm: ЫШКЫН "1(С) 1984 В 
Y.M. BEUTJE KK 
:40 TEBeOTHENBaL s 607070 MM 
*50 PRINT"[CLEAR][DOWN] PIC 1 (UPPER LEFT 
) : "B$(1):PRINT" PIC 2 (UPPER RIGHT) : 
"B$(2) MF 
*60 PRINT" PIC 3 (LOWER LEFT ) : "B$(3):P 
RINT" PIC 4 (LOWER RIGHT) : "B$(4) 
*70 PRINT"[DOWN][RIGHT][RVSON] F1 = DISP 
LAY 1 [RVSOFF][5" "][RVSON] F2 = LOAD 1 
[3" "]" NN 
*80 PRINT" [DOWN ][RIGHT][RVSON] ЕЗ = DISP 
LAY 2 [RVSOFF][5" "][RVSON] F4 = LOAD 2 
[3" "у" ЕЛ 
+90 PRINT"[DOWN][RIGHT][RVSON] F5 = DISP 
LAY 3 [RVSOFF][5" "][RVSON] F6 - LOAD 3 
[3" "у" 
*100 PRINT"[DOWN 
PLAY 4 [RVSOFF] 
403" "]" 
*110 PRINT"[DOWN][RIGHT][RVSON] 
DUMP POS [RVSOFF][5" "][RVSON] 
ROW] = DUMP МЕС" 
*120 PRINT"[DOWN][RIGHT][5" "][RVSON][3" 


NN 
JJ 
FE 
DI 
GJ 
IE 
MC 
FL 
MJ 
07 
GJ 
СР 
РР 
ЕЕ 
JC 


DB 


EP 


PB 
[RIGHT][RVSON] F7 - DIS 
5" "][RVSON] F8 - LOAD 


CF 
[EP] - 
[BACKAR 
DM 


"]* = QUICK VIEW SCREENS " ос 
“130 PRINT" [DOWN] [RIGHT] [5" ^ JERVSON][3" 
"16 = SWAP SCREENS[7" "][DOWN]" GL 
*140 GETAS: IFA$<>""THEN140 AL 
“150 GETA$:IFA$=""THEN150 HN 
160 А-А5С(А5) GE 
*170 ІҒА-92ТНЕН5/549209:60Т040 EG 
+180 IFA-95THENSYS49205:GOTO40 GL 
+190 IFA=42THENA=1 :GOSUB520:SYS49490:SYS4 
9188:6010280 FO 
*200 IFA=64THEN310 CF 
*210 IFA<133THEN150 EH 
“220 ІҒА>140ТНЕМ150 FN 
+230 A-A-132: IFA»4THENGOSUBA40:; СОТО4О FD 
“240 GOSUB520:SYS49490:SYS49188 AK 
«250 GETA$: IFA$<>""THEN250 СР 
“260 GETA$:IFA$-""THEN260 HH 
*270 SYS49188:GOTO46 OB 
«280 GETA$:A-ASC(AS$4CHR$(0)) : IFA=32THENSY 
$49188:G0TO40 HO 
290 ТЕА<1ЗЗОКА>1З6ТНЕН2ВО ы 
“300 A-A-132:GOSUB520:SYS49490:G0TO280 МР 
“310 PRINT"ENTER THE NUMBERS OF THE SCREE 
Ns" JB 
“320 PRINT"YOU WANT TO SWAP (1-4)." NL 
+330 INPUT"IST SCREEN : "ҘА IC 
*340 INPUT"2ND SCREEN : ";B HP 
“350 IFACIORA»4ORBC1ORBPATHEN310 ID 
+36) GOSUB520:SYS49496 AB 


*370 РОКЕ49153,16%(2%4%2):РОКЕ49152,16%(2 
+8#2) AN 

па oes 52244 (B-1)*4:POKEA9154, Фа 
A-1 


+390 SYS49490 n 
+400 POKEA9152, 32: POKEA9153, 16*(24B*2) :PO 

KE49155,2244(A-1)*4 : POKEA0154 , 4 JE 
*410 SYS49490 KG 
+420 A$=B$(A) :B$(A)=B$(B) :B$(B)=A$ JG 
+430 GOTOAO PE 
*44( REM GET FILENAME AND LOAD IT. NO 
+450 A=A-4:PRINT" ENTER FILENAME OF РІС"А 

"а"; INPUTA$ AB 
«460 IFLEN(A$)»16THENA50 10 
+470 B$(A)-A$ AE 


*480 POKE49156, LEN(A$) : POKEA9152, 32: POKEA 
9153 ,16%(244%2) OF 
+500 FORX-1TOLEN(A$) :POKE49156+X, ASC(MID$ 
(A$,X,1)) : NEXT NF 
*510 SYS49454:POKE49155 ,224+(A-1)*4:POKE4 


9154, 28:SYS49490: RETURN JO 
+520 РОКЕ49153,32:Р0КЕ49152,16%(2-А%2):Р0 
KE49154,2244(A-1)*4:POKE49155,4:RETURN МС 
+530 REM POKE IN ML ROUTINE DB 
1540 1-49152 AJ 
+550 READA: IFA-256THEN565 KA 
+56) SUM=SUM+A:POKE I,A:I=I+1:GOTO550 EE 
1565 IFSUM<>61145THENPRINT"ERROR IN DATA 
STATEMENTS .":END:REM SUM=61166 FOR 10Х ВЕ 
AHOY! 97 
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IMPORTANT 


*566 RETURN 


*570 DATA 6, 


*580 DATA 3: 
“590 DATA 1 


“600 DATA 0, 
“610 DATA 0, 


“620 DATA 3: 
“630 DATA 8 


“640 DATA 2, 


"650 DATA 1 


«660 DATA 0, 
+670 DATA 4, 


“680 DATA 1 
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IM 
0,0,0,0,60,162,0 он 
2,126,197,169,76,44,169,96 ІН 
33,138,169,44,133,0,0,0 MD 
0,0,0,0,0,0,0 FG 
0,0,0,173,17,208,73 п 
2,141,17,208,173,24,208,73 IK 
,141,24,208,96,169,255,208 МР 
169,0,141,33,192,169,4 IF 
62,4,160,0,32, 186,255, 169 ми 
32,189,255,32,192,255,162 РЈ 
32,201,255,169,0,133,251 CD 
69,64,133,252,169,0,141,32 NH 


*690 DATA 192,169,96,141,31,192,162,210 BI 


“700 DATA 3. 


2,176,193,32,210,255,169,25 BE 


*710 DATA 141,29,192,32,163,192,169,0 NM 


*720 DATA 1. 


33,251,169,128,133,252,169,0 PD 


*730 DATA 141,32,192,169,160,141,31,192 DL 
*740 DATA 169,25,141,29,192,32,163,192 ММ 
*750 DATA 169,27,32,210,255,169,64,32 JI 


*760 DATA 2: 


10,255,169,4,32,195,255,32 MM 


*770 DATA 204,255,96,162,200,32,176,193 AN 


*780 DATA 3. 
*790 DATA 7. 


2,227,192,165,251,72,165,252 IH 
2,173,32,192,133,251,173,31 ОЕ 


“800 DATA 192,133,252,32,227,192,165,251 JA 
“810 DATA 141,32,192,165,252,141,31,192 DL 
*B20 DATA 104,133,252,104,133,251,169,13 GJ 


“830 DATA 3: 


2,210,255,32,225,255,208,5 СЕ 


+840 DATA 104,104,76,144,192,206,29,192 ТА 
+850 DATA 208,193,96,169,40,141,30,192 СЕ 
+860 DATA 160,0,162,0,120,169,46,133 NM 


"870 DATA 1, 


177,251,141,34,192,169,47 JO 


«880 DATA 133,1,88,14,34,192,62,21 IM 
«890 DATA 192,232,224,8,208,245,200,192 МВ 


“900 DATA 8, 


208, 223,24,165,251,195,8 CN 


+910 DATA 133,251,165,252,105,0,133,252 FL 
*920 DATA 162,0,189,21,192,77,33,192 00 
+930 DATA 32,210,255,232,224,8,208,242 ВЕ 
+940 DATA 206,30,192,208,187,96,169,1 PJ 
«950 DATA 162,8,160,0,32,186,255,173 LJ 


*960 DATA 4, 


192,162,5,160,192,32,189 MM 


+970 DATA 255,169,0,170,160,28,32,213 PC 


*980 DATA 2' 
*990 DATA 2: 
*1000 DATA 
*1010 DATA 
*1020 DATA 
+1030 DATA 
+1040 DATA 
+1050 DATA 
+1060 DATA 
“1070 DATA 
“1080 DATA 
1090 DATA 
2 


+1100 DATA 
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55,169,1,32,195,255,32,204 РЕ 
55,96,160,0,132,251,174,1 JB 
192,134,252,132,253,174,0,192 BI 
134,254,142,34,192,238,34,192 JG 
200,192,32,208,248,160,0,120 HC 
169,46,133,1,177,253,145,251 NI 
169,47,133,1,88,200,208,239 JP 
230,252,230,254,165,254,205,34 AL 
192,208,228,173,3,192,133,252 NH 
173,2,192,133,254,162,4,120 NL 
169,40,133,1,177,253,145,251 0С 
200,208,249,230,252,230,254,20 en 


208,242,169,47,133,1,88,96 РЕ 
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*1116 DATA 142,188,193,142,195,193,160,0 DC 
“1120 DATA 162,0,232,189,200,193,32,210 ЈМ 
+1130 DATA 255,138,217,200,193,48,243,96 DK 


+1135 REM JD 
-1136 REM JD 
-1137 REM PRINTER CONTROL CODES FH 
-1138 REM JD 
+1139 REM JD 
+1140 REM * EPSON PRINTER MODULE * LG 
+1150 DATA 5,27,42,6,128,2,0,0,0,0 CJ 
-1160 DATA 3,27,65,8,0,0,0,256 GF 
+1170 REM * GEMINI PRINTER MODULE * ЈЕ 
+1180 DATA 4,27,76,128,2,0,0,0,0,0 HD 
*1190 DATA 3,27,51,16,0,0,0,256 LL 


6510 SIMULATOR 
FROM PAGE 77 
*100 REM ЖЖжжжжж 6510 SIMULATOR жж BD 
“110 DATA ASL,BRK,CLC,CLD,CLI,CLV,DEX,DEY 
,INX,INY,LSR,NOP,PHA,PHP,PLA IL 
-120 DATA PLP,ROL,ROR,RTI,RTS,SEC,SED, oe 
TAX, TAY, TSX,TXA,TXS,TYA 
+136 DATA ADC, AND,CMP,CPX,CPY,EOR,LDA, om 
»LDY,ORA,SBC FG 
-140 DATA ADC, AND, ASL, BCC, BCS , BEQ, BIT, BMI 
„BNE, BPL, BVC, BVS , CMP, CPX,CPY EC 
+156 DATA DEC,EOR, INC, JMP , JSR, LDA ОХ , LDY 
,LSR, ORA, ROL, ROR, SBC, STA, STX FC 
*160 DATA STY,ASL,LSR,ROL,ROR LJ 
*170 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C, D, E,F ВК 
“180 DATA 0000,0001,0010,0011,0100,0101,0 


110,0111 PG 
*190 DATA 1000,1001,1010,1011,1100,1101,1 
110,1111 GG 


+200 DIM HEX$(8) ,BIT$(8) ,H$(16) ,B$(16) „ТЕ 
MP$(2) ,BIT(8) ,N$(75) NC 
“210 AR$="00" : XH$«" 00" : YH$="00" : $e 0" : AD 
«0:50-0:Үр-0 AL 
-220) АВ$="[В"О" ]":ХВ$="[8"0"]":үв$="[в"о" 
1" GF 


*230 Ne0:V=0:Be0;D=0:1=0:2=0:C=0 NN 
+240 IF RIGHT$(A$,1)=" "THEN 300:REM TYPE 

A SPACE BETWEEN THE QUOTES PD 
+250 FOR L=1 TO 75:READ N$(L):NEXT L МА 
“260 FOR 1=1 ТО 16:READ H$(L):NEXT L:FOR 


L=1 TO 16:READ B$(L):NEXT 1, CH 
*270 PRINT CHR$(147):REM CLEAR SCREEN EG 
+280 PRINT" N V - BD IZ GC" NF 
«285 PRINT N;V;" - 3D; 152; C: PRINT LA 
*290 PRINT "A: ";AH$;"[7" "]X: ";XH$;"[7" 
рай во км 


+295 PRINT AB$;"[A" "]";XB$;"[4" "]";YB$: 
PRINT 0B 
+300 Ba0:A$="": INPUT " ";А$:ВЕМ ТҮРЕ SPAC 

E BETWEEN SECOND PAIR OF QUOTES MG 
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“320 IF LEN(A$)<3 OR LEN(A$)>10 THEN 300 CD 
°330 IF LEN(A$)=3 THEN 420:REM GO TO IMPL 
IED-ADDRESS ROUTINES JC 
*340 IF MID$(A$,4,1)<>CHR$(32) THEN 300 AJ 
*350 IF RIGHT$(A$,1)=CHR$(32) THEN 300 РС 
“360 СОТО 450:REM GO TO IMMEDIATE- AND АВ 
SOLUTE-ADDRESS ROUTINES BH 
+370 REM *** ROUTINE TO CONVERT OP$ & AD$ 
TO BINARY NUMBERS *** 
“380 OD$-OP$:GOSUB 1130:FOR L-1 TO 8:BIT$ 
(L)eZ$:NEXT L AG 
+390 FOR 1=1 ТО 8:B1$(L)-MID$(OB$,L,1): M 
XTL 
*400 FOR L=1 TO 8:B2$(L)=MID$(AB$,L,1): ot 
XT L:RETURN or 
+410 REM *** IMPLIED-ADDRESSING ROUTINES 
жж JL 
*420 FOR 1-1 TO 29:1F A$-N$(L) THEN OC$-A 
$:0C-L:GOTO 1350 LN 
*430 NEXT L:GOTO 300 CH 
+44) REM *** IMMEDIATE, ABSOLUTE & ACCUMU 
LATOR ADDRESS MODES *** cP 
450 OC$-LEFT$(A$,3) :OP$=MID$(A$,5) NC 
«460 IF LEFT$(OP$,1)="#" AND MID$(OP$,2,1 
)="$" THEN FLAG$="AH":GOTO 530 ЕН 
*470 IF LEFT$(OP$,1)="#" THEN FLAG$="AD": 
GOTO 620 IG 
*480 IF LEFT$(OP$,1)="$" THEN FLAG$="IH": 
GOTO 690 OK 
*490 IF OP$="A" THEN 790 
*500 IF LEFT$(OP$,1)<"0" AND LEFT$(OP$, "m 
»"9" THEN 300:REM TRY AGAIN 
“510 FLAG$-"ID":GOTO 840 
*520 REM *** HEX OPERAND, ABSOLUTE ADDRES 
5 жжж FI 
*530 OP$=MID$(OP$,3) MH 
+540 FOR L=30 TO 40:ТЕ OC$-N$(L) THEN 0С- 
L:GOTO 560 
*550 NEXT L:GOTO 300 
*560 IF LEN(OP$)>2 THEN 300 
*570 FOR 1=1 TO  LEN(OP$) :X$-MID$(OP$,L, - 
):IF X$<Z$ OR X$>"F" THEN 300 
*580 IF X$»"9"AND X$<"A" THEN 300 AI 
“590 IF LEN(OP$)=1 THEN OP$=Z$+0P$ JH 
+609 OH$-OP$:GOSUB 1030:0P$=0D$:GOTO 670 IN 
*610 REM *** DECIMAL OPERAND, ABSOLUTE AD 
DRESSING *** 
*620 OP$=MID$(OP$, 2) 
“630 FOR L-30TO 40:IF OC$=N$(L) THEN осы, 
:GOTO 650 GB 
640 NEXT L:GOTO 300 CH 
+650 IF VAL(OP$)>255 THEN 300 OK 
*660 FOR L=1 TO LEN(OP$):X$=MID$(OP$,L,1 
2:1ҒА5С(Х5)<48 OR ASC(X$)>57 THEN 420 ЕН 
*670 0C-0C-29:GOTO 1420 HK 
+680 REM *** HEX OPERAND, IMMEDIATE ADDRE 
SS жж EA 


690 OP$=MID$(OP$,2) 


e 


GP 
CH 


a 


MG 


*700 FOR 1=41 TO 71:IF OC$=N$(L) THEN OC 
=L:GOTO720 CN 


“710 NEXT L:GOTO 300 CH 
+720 IF LEN(OP$)>4 THEN 300 КЕ 
“730 FOR L=1 TO LEN(OP$) : X$-MID$(OP$,L, D 


:IF X$<Z$ OR X$>"F" THEN 300 

*740 IF X$>"9" AND X$<"A" THEN 300 ie 
+750 NEXT L мо 
“760 OH$-OP$:GOSUB 1930:0P$=0D$: фе, 
PEEK(VAL(OP$) )) 

“770 0C-0C-40:GOTO 1430 TA 
+780 КЕМ *** ACCUMULATOR ADDRESSING *** ЕС 
+790 ОР$="А" AL 
*800 FOR 1,-72 TO75:1F OC$-N$(L) THEN OC-L 
-71: GOTO 820 от 
“810 NEXT L:GOTO 300 CH 
+820 ON OC СОТО 1510,1760,1790,1810 IL 
*830 REM *** DECIMAL OPERAND, IMMEDIATE А 
DDRESS ** Jc 
+840 IF VAL(OP$)>65535 THEN 300 JD 


-860 FOR 1=1 TO LEN(OP$) :X$-MID$(OP$,L, 1) 
:IF ASC(X$)<48 OR ASC(X$)>57 THEN 300 ЕТ 
+870 FOR L=41 TO 71:IF OC$-N$(L) THEN OC- 


L:GOTO 890 CP 
«880 NEXT L:GOTO 300 CH 
+890 OPS-STR$(PEEK(VAL(OP$))) IN 
*900 OC-0C-40:GOTO 1430 IA 


*910 REM ### DECIMAL-TO-HEXADECIMAL CONVE 
RSION *** JN 
+920 FOR L-1 TO 4:HEX$(L)="":NEXT L KJ 
*930 FOR 1-1 ТО 5:T$-RIGHT$(OD$,L):NEXT 510 
+940 NR=VAL(OD$) :X=4 

+950 TMP=NR:NR=INT(NR/16) : TMP-TMP-NR*16 b 
-960 IF ТМР<10 THEN HEX$(X)=RIGHT$(STR$(T 
MP),1):G0TO 980 BN 


+970 HEX$(X)=CHR$(TMP-16+ASC("A")) EA 
*980 IF NR4»0 THEN X-X-1:GOTO 950 PN 
1990 OH$=HEX$(1)+HEX$(2)+HEX$(3)+HEX$(4) ЈМ 
“1000 IF LEN(OH$)=1 THEN OH$-Z$40H$ BP 
*1010 RETURN IM 
*1020 REM *** HEXADECIMAL-TO-DECIMAL CONV 

ERSION жж GB 


“1030 NR=0:FOR L=1 TO LEN(OH$):HEX$(L)-MI 
D$(OH$,L,1) FF 

*1040 IF HEX$(L)<="9" THEN NR=NR*16+VAL(H 
EX$(L)):GOTO 1060 со 

*1050 NR=NR*16+ASC(HEX$(L))-ASC("A")+10 

*1060 NEXT L:OD$-STR$(NR):RETURN 

*1070 REM *** BINARY-TO-DECIMAL CONVERSIO 
None FC 

*1080 FOR L-8 TO 1 STEP -1:B$(L)-MID$(OB$ 
»L,1):NEXT L AL 

+1096 FOR L=1 TO 8:BIT(L)=VAL(B$(L)): M ы 
L:0D-0:NR-256 

*1100 FOR L=1 TO8:NR=NR/2: озоратон" 
R:NEXT L 

1110 OD$=STR$(OD) : RETURN 

51120 REM *** DECIMAL-TO-BINARY CONVERSIO 


CE 
ок 


N ж DG +1530 ТЕ LEFT$(OB$,1)="1"THEN №1 ОР 
+1130 OD=VAL(OP$):FOR L-8 TO 1 STEP -1:TM +1540 IF VAL(OD$)=OTHEN 2-1 BO 
P=0D/2:NR=TMP-INT(TMP) EL +1550 GOTO 3390 FK 
1140 IF NR=0 THEN BT$(L)-Z$:GOTO 1160 ЈО +1569 B-1:GOTO 3390:REM *** BRK *** JG 
+1156 BT$(L)="1" JE +1570 C-0:GOTO 3390:REM *** CLC *** EL 
"1160 OD-INT(TMP):NEXT L ВР +1589 D-0:GOTO 3390:REM *** CLD *** FJ 
*1170 OB$=BT$(1)+BT$(2)+BT$(3)+BT$(4)+BT$ “1590 I-0:GOTO 3390:REM *** CLI *** IH 
(5)4BT$(6)+BT$(7)+BT$(8) : RETURN DN +1600 V-0:GOTO 3390:REM *** CLV *** NN 


*1180 REM *** HEX-TO-BINARY CONVERSION ** 
* 


+1190 HEX$(1)="":HEX$(2)=":FOR L=1 TOLEN 
(OH$) :HEX$(L)=MID$(OH$,L,1) Dk 
+1200 NEXT L:IF HEX$(2)="" THEN HEX$(2)-H 
EX$(1) :HEX$(1)=2$ ом 
+1210 FOR 1-1 ТО 16:1Е HEX$(1)=H$(L) THEN 
BIT$(1)-B$(L) HC 
+1220 NEXT L:FOR Lel TO 16:IF ШЫБЫН 
L) THEN BIT$(2)-B$(L) 
+1240 NEXT L:OB$-BIT$(1)4BIT$(2):PRINT: m 
TURN AP 
*1260 REM 8 BINARY-TO-HEX CONVERSION ** 
A 


+1270 FOR L-1 TO 8:BIT$(L)=MID$(OB$,L,1): 
NEXT L 

*1280 BIT$=BIT$(1)+BIT$(2)+BIT$(3)+BIT$(4 
)+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) 

+1290 TIS-LEFT$(BIT$,4) : T2$-RIGHTS(BIT$, 4 
):FOR 141 TO 16 NM 
*1300 IF T1$=B$(L)THEN HEX$(1)-H$(L) IL 
*1310 NEXT L:FOR L-1 TO 16:IF T2$-B$(L) T 
HEN HEX$(2)-H$(L) NK 
*1320 NEXT L:IF HEX$(1)="" THEN HEX$(1)=Z 

$ FG 
*1330 OH$-HEX$(1)4HEX$(2) : RETURN 

+1340 REM %%ж ON/GOTO DATA *** 

"1350 ON ОС GOTO 1510,1560,1570,1580,1590 
,1600,1610,1650,1690,1730 JB 
*1360 NR-0C-10:0N NR GOTO 1760,1780,1780, 
1780,1780,1780,1790,1810,1830,1840 

1380 NR=NR-19:0N NR СОТО 1850,1860,1870, 
1880,1900,1920,1930,1940,1950,1840 

1400 NR=NR-19:0N NR GOTO 1850,1860,1870, 
1880,1900,1920,1930,1940,1950,1950 

+1420 ON OC GOTO 1970,2100,2170,2250,2320 
„2390,2450,2550,2650,2750,2810 BD 
*1430 ON OC GOTO 1970,2350,3250,1780,1780 
„1780,3200,1780,1780,1780 J 
*1440 NR20C-10:0N NR GOTO 1780,1780,3250, 
2250,2320,3260,2390,3290,1780,1780 

1460 МЕ-МЕ-10:0М NR GOTO 2450,2550,2650, 
3320,2750,3340,3360,2810,1780,1780 

1480 NR=NR-10:0N NR СОТО 1780,3390 

*1500 REM *** IMPLIED-ADDRESS OP-CODE ROU 
TINES Cc 
+1510 C=VAL(LEFT$(AB$,1)):AB$=MID$(AB$, 2) 
+Z$:REM *** ASL Жж EH 
+1520 OB$=AB$:GOSUB 1270:AH$-OH$:0P$-OH$: 
GOSUB 1030:N-0:2-0 DF 
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ММ 


РА 


co 
LE 


KG 
CF 
BP 


EL 


OL 
BB 


+1619 OH$-XH$:GOSUB 1030:XD-VAL(OD$):REM 
wore ТЕХ Жж ТЕ 
+1620 XD-XD-1:IF Хр<0 THEN XD-255 JO 
+1630 OD$=STR$(XD) : GOSUB920: XH$-0H$ :GOSUB 
1190: XB$=0B$ BF 
+1640 TMP-XD:GOSUB 3410:GOTO 280 EF 
+1650 OH$-YH$:GOSUB 1030:YD-VAL(OD$) : КЕМ 
жжж DEY жж 00 
“1660 YD-YD-1:IF Үр<0 THEN YD-255 BC 
*1670 OD$-STR$(YD):GOSUB 920:YH$-0H$:GOSU 
B 1190:YB$-OB$ KK 
+1680 TMP=YD:GOSUB 3410:GOTO 280 FE 
+1690 OH$=XH$:GOSUB 1030:XD-VAL(OD$):REM 
жжж INX жж BD 
+1700 OD$=STR$(XD):GOSUB 920:XH$-0H$:GOSU 
В 1190:ХВ$=0В$ BF 
+1710 XD=XD+1:IF XD>255 THEN Хр=0 XP 
*1720 GOTO 1630 FN 
“1730 OH$-YH$:GOSUB 1030:YD-VAL(OD$) :REM 
жж TINY жж 
+1740 YD=YD+1:IF YD>255 THEN Үр-0 
+1750 GOTO 1670 FJ 
*1760 C=VAL(RIGHT$(AB$,1)) :AB$=Z$+LEFT$(A 
B$,7):REM *** 158 жж 00 
“1770 GOTO 1520 
“1780 GOTO 3390:REM *** NOP,PHA,PHP,PLA А 
ND PLP *** ОР 


NB 


FN 


“1790 GOTO 3340:REM *** ROL *** AC 
+1810 GOTO 3360:REM *** ROR Жж EC 
“1830 N=0:V=0:B=0:D=0:1=0:Z=0:C=0:GOTO 28 

O REM Жж RTI Жж ND 
+1840 СОТ 3390:REM *** RTS *** LG 
+1850 C=1:GOTO 3390:REM *** SEC Жж ID 
*1860 D=1:GOTO 3390;REM *** SED *** HG 


+1870 I-1:GOTO 3390:REM ### SEI *** GP 
+1880 XH$=AH$:XB$=AB$:OP$=AH$:GOSUB 1030: 
TMP-VAL(OD$):REM *** TAX *** 

“1890 GOSUB 3410:GOTO 3390 

+1900 YH$=AH$:YB$=AB$:OP$=AH$:GOSUB 1030: 
TMP-VAL(OD$):REM *** TAY жж CN 
1910 GOSUB 3410:GOTO 3390 
*1920 XH$="00":XB$="[8"0"]":GOSUB 3410:60 
TO 3390:REM *** TSX жж LN 
+1930 AH$-XH$:AB$-XB$:GOTO 1520:REM Жж T 


XA *** A0 
“1940 СОТО 3390:REM *** TXS *** DL 
*1950 AH$=YH$:AB$=YB$:GOTO 1520:REM Жж T 
YA *** HP 
“1960 REM *** ABSOLUTE-ADDRESS OPERANDS * 
ж FI 
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“1970 IF D THEN 2950:REM *** ADC Жж NJ 
+1980 OP-VAL(OP$):TMP$-AB$ OM 
+1990 GOSUB 1130:PLUS$-OB$ НА 


“2000 OH$-AH$:GOSUB 1030:AD$-0D$:AD-VAL(A 
D$): TMP-AD NF 
*2010 AD-AD*OP4C:C-0:IF AD>255 THEN GOSUB 


2090) DK 
+2020 AD$=STR$(AD) :OD$=AD$ : GOSUB920: AH$-O 
H$ BL 
“2030 GOSUB 1190:АВ%-0В5 JK 
*2040 Ней: ТЕ AD>127 THEN №1 NO 
“2050 Z=0:IF Ар=0 THEN 2-1 FC 
“2060 У-/) DL 


+2070 ТЕ LEFT$(TMP$,1)=LEFT$(PLUS$,1) AND 
LEFT$(TMP$,1)<>LEFT$(AB$,1)THEN V=l LN 
+2080 OD$=AD$:GOSUB 1030: AH$=0H$:GOTO 280 DC 
+2090 C=1:AD=AD~256 : RETURN 
+2100 GOSUB 380:REM ЖЖЖ AND *** PJ 
+2110 FOR L=1 TO 8:BIT$(L)=" 
+2120 FOR L=1 TO 8:IF B1$(L)="1" AND BC. 
L)="1" THEN BIT$(L)="1" 
*2130 NEXT L ш 
+2140 AB$=BIT$(1)4+BIT$(2)+BIT$(3)+BIT$(4) 
+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) © 
+2150 OB$=AB$:GOSUB 1270:АН$=ОН$ LN 
+2160 GOSUB 1030: TMP=VAL(OD$) :GOSUB3410:P 
RINT:GOTO 280 
+2170 OH$=AH$:GOSUB 1030:AD$=0D$:AD=VAL(A 


D$):OP=VAL(OP$):REM *** CMP жж NB 
“2180 2=0:1Е AD=OP THEN Z=1 NN 
2190 N-0:1F OP>AD THEN N=1 NA 
“2220 C=0:IF AD>OP OR AD=OP THEN С-1 CN 
*2240 GOTO 3390 FK 


+2250 OH$-XH$:GOSUB 1030:XD$=OD$:XD=VAL(X 
D$):OP=VAL(OP$):REM *** CPX *** CG 
+2260 Z-0:1F XD=OP THEN Z=1 LK 


2280 Мей: ТЕ OP>XD THEN Ме! NL 
+2300 C=0:IF XD>OP OR XD=OP THEN С=1 GF 
+2310 GOTO 3380 GD 
+2320 OH$=YH$:GOSUB 1030:YD$20D$:YD-VAL(Y 

D$):0P-VAL(OP$):REM *** CPY жж CN 
+2330 Z-0:IF YD=OP THEN 2=1 NF 


+2340 N-0:IF OP>YD THEN N=1 NI 


*2350 C-0:IF YD>OP ОК YD=OP THEN С-1 FN 
“2380 GOTO 3380 GD 
“2390 GOSUB 380:REM *** БОК жж ос 
“2400 FOR L=1 TO 8:BIT$(L)=Z$:NEXT L PJ 
*2410 FOR 1,21 TO 8:IF B1$(L)="1" AND B2$( 

L)e"1" THEN BIT$(L)="0":GOTO 2440 ко 


+2420 IF B1$(L)="1" OR B2$(L)="1" THEN BI 
T$(L)="1" 

+2440 NEXT L:GOTO 2140 

“2450 IF D=1 THEN 2480:REM *** LDA жж 
+2460 OD$-OP$:GOSUB 920:AH$-0H$:GOSUB 119 
0: AB$-OB$ 

“2470 TMP-VAL(OP$):GOSUB 3410:GOTO 280 
+2480 IF FLAG$="AD" AND VAL(OP$)>99 THEN 
300 


ЕР 
16 


16 
НА 


+2490 ТЕ FLAG$<>"AD" THEN OD$-0P$:GOSUB 9 


20:AH$-0H$:GOTO 2530 MD 
*2500 IF LEN(OP$)-1 THEN OP$-Z$40P$ JH 
*2510 AH$-OP$:0H$-AH$:GOTO 2530 NJ 
+2520 00$=0Р$:С050В 920:AH$-0H$ EB 
+2530 GOSUB 1190:АВ$=0В$ JK 
+254) TMP=VAL(OP$):GOSUB 3410:GOTO 2470 JN 
*2550 IF D-l THEN 2580:REM *** LDX *** ММ 


+2560 00$=0Р$:6050В 920:XH$-0H$:GOSUB 119 
0:XB$-0B$ NO 
+2570 TMP-VAL(OP$):GOSUB 3410:GOTO 280 

+2580 IF FLAG$="AD" AND VAL(OP$)>99 THEN 
300 т 
+2590 IF FLAG$<>"AD" THEN 00$=0Р$:С050В 9 

20:XH$-0H$:GOTO 2630 GN 
+2600 IF LEN(OP$)=1 THEN OP$-Z$40P$ JH 
+2610 XH$=OP$:OH$=XH$:GOTO 2630 HA 


НА 


+2620 OD$-OP$:GOSUB 920:XH$-0H$ CM 
*2630 GOSUB 1190:Х85-085 MF 
+2649 TMP=VAL(OP$):GOSUB 3410:GOTO 2570 ЈК 
+2650 IF Del THEN 2680:REM *** LDX жж 07 


“2660 OD$-0P$:GOSUB 920:YH$-0H$:GOSUB 119 
0:ҮВ5-085 JG 
*2670 TMP=VAL(OP$):GOSUB 3410:GOTO 280 
+2680 IF FLAG$="AD" AND VAL(OP$)>99 THEN 
300 

*2690 IF FLAG$<>"AD" THEN 00$=0Р$:6050В 9 
20:YH$-0H$:GOTO 2730 PN 


HA 


*2700 IF LEN(OP$)=1 THEN OP$=Z$+0P$ JH 
“2710 YH$=OP$:OH$=YH$:GOTO 2730 EL 
“2720 00$=0Р$:6050В 920:XH$-0H$ CM 
+2730 GOSUB 1190:YB$-0B$ ос 
+2740 TMP=VAL(OP$):GOSUB 3410:GOTO 2670 ЈР 
“2750 GOSUB 380:REM *** ORA жж KE 


+2760 FOR Lel TOB8:IF B1$(L)="1" OR B2$(L) 
="1" THEN BIT$(L)="1" KC 

+2770 NEXT L:AB$="":FOR Lel TO 8:AB$=AB$+ 
BIT$(L):NEXT L PE 

“2790 OB$-AB$:GOSUB 1270: AH$=OH$ 

“2800 GOSUB 1030:ТМРЕУАТ.(005) :GOSUB3410: Es 
OTO 3390 

“2810 IF D THEN 3060:REM *** SBC *** 

«2820 OP-VAL(OP$):TMP$-AB$ 

“2830 GOSUB 1130:MI$-OB$ LJ 

*2840 OH$=AH$:GOSUB 1030:AD$20D$:AD-VAL(A 
D$):TMP-AD NF 


LN 


M 
OM 


+2850 AD-AD-OP:IF C= THEN AD=AD-1 IN 
+2860 IF Ар<0 THEN AD=256+AD:C=0 AN 
+2870 AD$=STR$(AD):OD$=AD$:GOSUB 920: AH$= 

OHS BL 
+2880 GOSUB 1190:АВ%-0В5 JK 
+2890 N-0:IF AD>127 THEN N-1 NO 
+2900 Z=0:IF AD=) THEN 2=1 FC 


+2910 V-0:IF LEFT$(TMP$,1)=LEFT$(MI$,1) Т 
HEN 2930 EE 
+2920 IF LEFT$(AB$,1)=LEFT$(TMP$,1) THEN 


ү-1 НІ 
+2930 OD$-AD$:GOSUB 1030:AH$-0H$:GOTO 280 DC 
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TO ENTER SCREEN MAGIC... be ee d program. See the instructions and listing 


*2940 REM *** BCD ADDITION ROUTINE *** AC 
+2950 IF FLAG$<>"AD" THEN 1980 HP 
*2960 IF LEFT$(AH$,1)>"9" OR RIGHT$(AH$,1 

)»"9" THEN 3030 сс 
+2970 AD-VAL(AH$) РО 
“2980 OP=VAL(OP$):AD=AD+0P+C:C=0 NE 
-2990 GOSUB 1030:TMP-VAL(OD$):GOSUB 3410 НК 
+3000 IF AD>99 THEN GOSUB 3040 EF 
*3010 AH$-STR$(AD):IF LEN(AH$)=1 THEN AH$ 

=7$+АН$ JN 
*3020 OH$-AH$:GOSUB 1190:AB$=0B$:GOTO 280 ID 
*3030 OH$-AH$:GOSUB 1030:AD$-OD$:AD-VAL(A 

D$):GOTO 2980 OF 
“3040 C=1:AD=AD-100:RETURN CF 
“3050 REM *** BCD SUBTRACTION ROUTINE *** DL 


+3060 IF FLAG$<>"AD" THEN 2820 HJ 

«3070 IF LEFT$(AH$,1)>"9" OR RIGHT$(AH$, m 
)»"9" THEN 3120 

+3080 AD=VAL(AH$) :OP=VAL(OP$) :Ар=Ар-ОР: E. 
С-0 THEN AD=AD-1 LB 

*3100 IF AD<) THEN GOSUB 3130 ОР 


“3110 бОТО 3010 ЕР 
“3120 OH$-AH$:GOSUB 1030:AD$-0D$:AD-VAL(A 
D$):GOTO 3090 NI 
“3130 С=0:Ар=100+АЮ: RETURN 

13140 REM PP INMEDIATE-ADDRESS ROUTINES 
жж: 

+3150 OD$-OP$:GOSUB 920:GOSUB 1190:REM ** 
ж ASL жж CL 
E C=VAL(LEFT$(OB$,1)) :0B$-MID$(OB$,2) D 
+7: А 
+3170 GOSUB 1270:GOSUB 1030:X-VAL(OD$):N- 
O:IF X<) THEN Nel GF 


CB 


*3180 Zz0:IF X=) THEN 2-1 AC 
“3190 GOTO 280 

+3200 GOSUB 1030:AD-VAL(OD$):REM *** ВІТ 
жж IJ 


+3210 GOSUB 1130:N=VAL(LEFT$(OB$,1)):V=VA 
L(MID$(OB$,2,1)) ІР 
“3220 GOSUB 400: Z=1:FOR L-1 TO 8 HD 
*3230 IF B1$(L)="1" AND B2$="1" THEN 2-0 НС 


*3246 NEXT L:GOTO 3390 FN 
“3250 GOTO 2170 ЕВ 
“3260 ОР-УА1(0Р5):ОР-ОР-1:ТЕ ОР<0 THEN N: 
REM Жж DEC *** EM 
*3270 IF OP= THEN 251 AC 
*3280 GOTO 3390 FK 


“3290 OP=VAL(OP$):OP=OP+1:IF OP< THEN N= 


1:REM *** INC Ж NL 
“3300 IF OP-Z THEN Z=1 CA 
“3310 GOTO 3390 ЕК 
+3320 OD$-OP$:GOSUB 920:GOSUB 1190 ЕС 


+3330 C=VAL(RIGHT$(OB$,1)):OB$=Z$+LEFT$(O 
B$,7):GOTO 3170 DK 
“3340 IF С-1 THEN J$="1":REM Ж ROL *** GF 
+3341 IF C=) THEN J$="0" PA 
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*3342 C=VAL(LEFT$(AB$,1)):AB$=RIGHT$(AB$, 
7)+1$ BD 
“3350 OB$=AB$:GOSUB 1270:AH$-OH$:0P$-0H$: 


GOSUB 1030:N=0:Z=0 DF 
*3355 IF LEFT$(OB$,1)="1" THEN N=1 ОР 
“3356 IF VAL(OD$)=OTHEN 7-1 BO 
*3357 GOTO 3390 FK 
*3360 IF С-1 THEN J$="1":REM *** ROR Жж GH 
*3365 IF C= THEN J$-Z$ PL 


“3370 C-VAL(RIGHTS(AB$, 1)) : AB$-J$4LEFT$ (A 
B$,7) DL 
*3371 GOTO 3350 FO 
*3380 REM *** PRINT LINE SPACE & СЕТ ANOT 


HER LINE *** FK 
“3390 PRINT:GOTO 280 РІ 
“3400 REM *** SET Z AND N FLAGS Жж HO 
“3410 N-0:IF TMP>127 THEN N=1 EE 
*3420 Z-0:IF TMP=0 THEN 7-1 MO 
“3430 RETURN ІМ 


SCREEN MAGIE 
FROM PAGE 33 
First byte: C000 


C000: 
C008: 
C010: 
C018: 
С020: 
С028: 
C030: 
C038: 
C040; 
C048: 


Lost byte: C8E7 


8D 8А 
21 


SYS to Start: RUN 


A9 44 
A9 
A9 
А0 
FF 
D2 
66 
c7 
68 
FE 
20 
: A9 
20 
: А0 


8E 
A4 
59 
29 
C7 
8A 
1Е 
9B 
BB 
87 
85 
69 
CD 
75 
7E 
50 
42 
C8 
48 
52 
18 
71 
1D 
5A 
86 
c2 
22 
AE 
51 
57 
27 


FO 
01 
04 
Е4 
FO 
FO 
FO 


c9 
c9 


c9 
c9 


COFO: 
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С1Е0: 
С1Е8: 
C1FO: 
C1F8: 
C200: 
C208: 
C210: 
C218: 
C220: 
C228: 
C230: 
C238: 
C240: 
C248: 
C250: 
C258: 
C260: 
C268; 
C270: 
C278: 
C280: 
C288: 
C290: 
C298: 
C240: 
C248: 


20 
cs 
DO 
01 
B6 
DB 
66 
FO 
DO 
OB 
DO 
OA 
8D 
8D 
DO 
C8 
DO 
A9 
AD 
10 
B6 
20 
1В 
AD 
20 
43 


: 01 
: 8D 
8D 


http: 


WWW. 


C668: AD ED C8 91 ЕС 20 CC C5 ОЕ 
C670: СА DO CD 4C B6 CO AO 1F 5D 
C678: A2 17 A9 A6 85 FE 85 FC 83 
C680: A9 07 85 FF A9 DB 85 FD BF 
C688: Bl FE 8D EC C8 ВІ FC 8D B8 
C690: ED C8 20 E7 C5 Bl FE 8D 53 
C698: ЕВ C8 ВІ FC 8D E7 C8 20 57 
C640: CC C5 AD ЕВ C8 91 FE AD DO 
C648: E7 C8 91 FC 20 26 C7 СА С0 
C6B0: DO ЕЗ 20 CC C5 AD EC C8 7B 
C6B8: 91 FE AD ED C8 91 FC 88 C4 
С6С0: ро B6 4C Вб СО АП 1Е A2 6E 
С6С8: 01 20 BD C5 ВІ FE 8D EC 98 


C500: 8D EC C8 A9 1F 8D ED C8 50 C6D0: C8 Bl ЕС 8D ED C8 20 CC 79 
C508: 20 E4 FF AC ED C8 91 FE 01 C6D8: C5 Bl FE 8D E8 C8 Bl FC 3D 
C510: 20 Е4 FF AC ED C8 91 FC 07 C6E0: 8D E7 C8 20 E7 C5 AD ЕВ 83 
C518: CE ED C8 AD ED C8 DO Е8 BB C6E8: C8 91 FE AD E7 C8 91 FC 2F 
C520: 20 CC C5 СЕ ЕС C8 AD EC Fl C6F0: 20 ОВ C7 E8 ЕО 18 DO El 78 
C528: СВ ро D8 4C A7 C4 А0 09 ЕС C6F8: 20 E7 C5 AD EC C8 91 FE BA 
C530: 20 82 СЗ АП 00 B9 46 C7 FE C700: AD ED СВ 91 FC 88 DO BF ОС 
C538: C9 00 FO 07 20 D2 FF C8 B5 C708: 4C Вб CO 18 A5 FE 69 50 42 
C540: 4C 35 C5 20 Е4 FF C9 00 56 C710: 85 FE А5 FF 69 00 85 FF 29 
C548: FO F9 C9 30 90 F5 C9 3A B7 C718: 18 А5 FC 69 50 85 ЕС A5 B4 
C550: BO Fl 38 E9 2F 8D 42 C7 DB C720: FD 69 00 85 FD 60 38 45 49 
C558: 20 70 C3 АС B6 CO AD F2 11 C728: FE E9 50 85 FE A5 FF E9 75 
C560: C8 А0 C8 A2 ЕЗ 20 BD FF 07 C730: 00 85 FF 38 А5 FC Е9 50 СА 
C568: A9 01 A2 08 AC FO C8 20 44 C738: 85 FC A5 FD E9 06 85 FD CB 
C570: ВА FF 20 CO FF 60 A9 00 16 C740: 60 20 05 00 00 00 20 43 29 
C578: 8D F2 СВ 20 Е4 FF ЕО FB B3 C748: 55 52 53 АР 52 20 56 45 AG 
C580: C9 OD FH 1C C9 14 FH 19 4C C750: 4C 4F 43 49 54 59 20 28 6E 
C588: C9 20 90 EF C9 60 ВО EB B9 C758: 30 2D 39 29 20 00 20 53 AB 
C590: AC F2 C8 99 F3 C8 20 D2 42 C760: 41 56 45 ЗЕ 20 20 20 20 FB 
C598: FF EE F2 C8 CO OF DO DB BF C768: 20 20 20 20 20 20 20 20 69 
C540: 60 AD F2 СВ C9 00 FH D3 F8 C770: 20 20 20 20 20 00 20 4C 7D 
C548: A9 9D 20 D2 FF A9 20 20 CC C778: 4F 41 44 3E 20 20 20 20 0C 
C5B0: D2 FF А9 9D 20 D2 FF CE ВС C780; 20 20 20 20 20 20 20 20 81 
С5В8: Е2 С8 4С 7В С5 А9 08 85 39 C788: 20 20 20 20 20 00 05 20 4E 
С5С0: FE 85 ЕС А9 04 85 FF A9 1F C790: 3C 3C 3C 3C 3C 3C 20 44 5E 
C5C8: D8 85 FD 60 18 А5 FE 69 АВ C798: 49 53 4B 20 45 52 52 4F D9 
C5D0: 28 85 FE А5 FF 69 00 85 12 C740: 52 20 3E 3E 3E 3E 3E 3E 88 
C5D8: FF 18 A5 FC 69 28 85 FC A7 C748: 20 00 FF FO 00 CO 30 00 AA 
С5Е0: А5 FD 69 00 85 FD 60 38 0А С7В0: CO 30 00 СО 30 00 СО 30 83 
С5Е8: А5 FE Е9 28 85 FE А5 РЕ C9 C7B8: 00 СО 30 00 СО 30 00 CO 5B 
С5Е0: E9 00 85 FF 38 А5 FC E9 25 C7C0: 30 00 СО 30 00 FF FQ 12 E4 
С5Е8: 28 85 FC А5 FD E9 00 85 B6 C7C8: 90 20 97 20 98 20 9B 20 А5 
C600: FD 60 20 BD C5 А2 18 А0 5D C7D0: 05 20 1Е 20 9А 20 9F 20 AF 
C608: 1Е ВІ ЕЕ 8D EC C8 B1 FC C9 С708: 0D 12 99 20 1E 20 9E 20 AE 
C610: 8D ED C8 88 ВІ FE 8D EA 06 С7Е0: 96 20 1C 20 9C 20 81 20 32 
C618: C8 Bl FC C8 91 FC AD EA 7F C7E8: 95 20 OD 97 D5 C9 12 D5 СА 
C620: C8 91 FE 88 88 DO ED C8 12 C7F0: C9 92 BO AE 12 BO AE OD 2B 
C628: AD EC C8 91 FE AD ED C8 80 C7F8: CA CB 12 CA CB 92 AD BD 36 
C630: 91 FC 20 CC C5 СА DO CF DC C800: 12 AD BD OD B3 Bl DD DB A9 
C638: 4C B6 CO 20 BD C5 A2 18 5А C808: D6 CO B2 AB Ор 12 B3 В1 82 
C640: AO 01 Bl FE 8D EC C8 ВІ 87 C810: DD DB 06 Со B2 АВ 0р 01 9E 
C648: FC 8D ED СВ C8 Bl FE 8D 90 C818: D7 D8 D3 DA СІ 40 2A OD BO 
C650: EA C8 Bl FC 88 91 FC AD 77 C820: A3 B7 B8 12 A2 B9 AF A4 F6 
C658: EA C8 91 FE C8 C8 СО 20 OF C828: 20 OD A4 AF B9 A2 12 B8 ро 
C660: 00 ЕВ 88 AD EC C8 91 FE 99 C830: B7 АЗ 20 Ор A7 B6 12 Al CA 
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IMPORTANT! “2/5 ол не background are Bug Repellent іле codes. Do not enter them! Pages 85 and 86 explain these codes 
+ and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


C838: B5 B4 92 DC А8 20 Ор 12 F9 ОЕЕ][с 6][s 01" 16 
C840: AA B6 92 Al B5 B4 А6 D9 СО -90 PRINTSPC(4)"[c 6][s Q][YELLOW][RVSON] 
C848: 12 D4 OD C5 C4 C6 D2 CE 2F [RVSOFF][sEP][22"[c T]"][c *][RVSON] 
C850: CD C8 12 C7 0D 12 C5 C4 6A [RVSOFF][WHITE][s W]" XM 
C858: C6 D2 CE CD 92 C7 12 C8 C3 -100 PRINTSPC(A4)"[WHITE][s шшш 
C860: 00 BA CC 12 BA CC BF 92 ЕО 1[26"[с T]"][c *][c 61(в 01" DI 
C868: 2B D4 12 D9 Ор DO CF 12 14 +110 PRINTSPC(5)"[WHITE][28"[s Z]"]" IK 
C870: 00 СЕ 92 BF 2D 5B 5D 0р 56 +120 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
C878: 12 A9 DF 92 AC BB 12 AC CD VSON][3" "][RVSOFF][WHITE][s Z][s Z][RED 
C880: BB 92 ЗС ЗЕ OD DF A9 BC 9C J[RVSON] [RVSOFF][WHITE][s Z][s Z][RED][ 
C888: ВЕ 12 BC BE 92 28 29 00 C5 RVSON] [RVSOFF][WHITE][s Z][RED][RVSON][ 
C890: 41 42 43 44 45 46 47 48 B6 4" "][RVSOFF][WHITE][s Z][RVSON][RED] [R 
C898: Ор 49 4A 4B 4C 4D АЕ 4F BB VSOFF][WHITE][s Z][s Z][RED][RVSON] [RVS 
C8A0: 50 OD 51 52 53 54 55 56 F4 OFF][WHITE][s Z 
C8A8: 57 58 ОП 59 5A 24 27 2E 92 JERED][RVSON][4" "][RVSOFF][WHITE][s Z)[ 
С8В0: 23 30 31 Ор 32 33 34 35 l1 s Z]" GL 
C8B8: 36 37 38 39 0D 12 20 20 F6 +130 PRINTSPC(S)"[WHITE][s Z][s Z][RVSON] 
С8С0: 20 20 20 20 20 20 20 92 34 [RED] [RVSOFF][WHITE][s Z][s Z][RED][RVS 
C8C8: 20 20 9A 53 43 52 45 45 17 ON] [RVSOFF][WHITE][s Z][RED][RVSON] [RV 
C8D0: 4E 20 4D 41 47 49 43 20 Cl SOFF][WHITE][s Z][s Z][RVSON][RED] [RVSO 
C8D8: 20 42 29 20 Z _ 42 20 А8 FF][WHITE][s Z][RVSON][RED] [RVSOFF][WHI 
С8Е0: 53 50 00 01 BB TE][4"[s Z]"][RVSON][RED] [RVSOFF][WHITE 

][s Z][RED][RVS 
DUCK SHOOT ON] [RVSOFF][WHITE][s Z][s Z][RED][RVSON 

] [RVSOFF][WHITE][5"[s Z]"]" FE 
FROM PAGE 35 *140 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
*5 PRINTCHR$(142):HS»0:GOSUBl100:POKE5328 VSON] [RVSOFF][WHITE][s Z][s Z][RED][RVS 
0,0 EK ОМ] [WHITE][RVSOFF][s Z][RED][RVSON] [WH 
10 PRINT" [НОМЕ] [DOWN ] [DOWN ]"SPC(8)"[c 6) ITE][RVSOFF][s Z][s Z][RED][RVSON] [WHIT 
[s QJ[WHITE][s W][c 6)[s Q][WHITE][s V][ EJ[RVSOFF][s Z][RED][RVSON] [WHITE][RVSO 


c 6]is Q][WHITE][s W][c 6][s Q][WHITE][s FF][4"[s Z]"][RED][RVSON] [WHITE][RVSOF 
ис 6][s QJ[WHITE][s W][c 6][s Q][WHIT F][3"[s Z]"](RE 
Е][в кс 6116 Q][WHITE][s W][c 6][в 0][ D][RVSON][4" "J[WHITE][RVSOFF][s Z][s 21 


WHITE][s W][c 6][s Q][WHITE][s W][c 6][s JF 
QJ[WHITE] [s W] +150 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
[c 6][s Q][WHITE][s 81" AE  VSON] [WHITE][RVSOFF][s Z][s Z][RED][RVS 


*20 PRINTSPC(7)"[WHITE][s W][RVSON][YELLO ON] [WHITE][RVSOFF][s Z][RED][RVSON] [WH 
W][sEP][RVSOFF][20" "][RVSON][c *][RVSOF ITE][RVSOFF][s Z][s Z][RED][RVSON] [WHIT 
F][c 6][s 0)" AC  EJ][RVSOFF][s Z][RED][RVSON] [WHITE][RVSO 
+30 PRINTSPC(6)"[c 6][s Q][YELLOW][RVSON] FF][4"[s Z]"][RED][RVSON] [WHITE][RVSOFF 
[sEP] [RVSOFF][20" "][RVSON] [c *][RVSOF ][s Z][RED][RVS 

F][WHITE][s W]" Lo ON] [WHITE][RVSOFF][5"[s Z]"][ RED] [ RVSON 
+40 PRINTSPC(5)"[WHITE][s W][YELLOW][RVSO ] [RVSOFF][WHITE][s Z][s Z]" 

N][sEP] [RVSOFF][20" "][RVSON] [c *][R *160 PRINTSPC(S)"[WHITE][s Z][s Z][RED][R 


vSorF]ic 6][s 0)" PO  VSON][3" "][WHITE][RVSOFF][s 2118 Z][RED 
+50 PRINTSPC(4)"[s Q][YELLOW][RVSON][ sEP] ][RVSON][4" "][WHITE][RVSOFF][s Z][RED][ 
ШУ ШЕТЕЛДЕ "][RVSON][3" "(с *][ RVSON][4" "][WHITE][RVSOFF][s Z][RED][RV 


RVSOFF][WHITE][s W]" BK SON] [WHITE][RVSOFF][s Z][s Z][RED][RVSO 
«60 PRINTSPC(4)"[WHITE][s W][ YELLOW][RVSO N] [WHITE][RVSOFF][s Z][RED][RVSON][4" " 
N][4" "][RVSOFF][20" "J[RVSON][4" "][RVS ][WHITE][RVSOFF 


OFF][c 6][s Q]" LG 118 Z][s Z]" DH 
*70 PRINTSPC(4)"[s Q][YELLOW][RVSON][4" " +170 PRINTSPC(5)"[WHITE][28"[s Z]"]" IK 
J[RVSOFF][20" "][RVSON][4" "][RVSOFF][WH +180 PRINTSPC(5)"[YELLOW][s O][4"[c T]"][ 
ITE][s W]" OI в P][CYAN]SHOOTING GALLERY[YELLOW][s O][. 
«80 PRINTSPC(4)"[WHITE][s W][YELLOW][RVSO 4"[c T]"][s РІ" JO 
N][4" "][RVSOFF][20" "][RVSON][4" "][RVS +190 PRINTSPC(5)"[c G][4" "][s N][16"[c T 
AHOY! 105 


www.oldgam: 


]"][s M](4" "(с мү" от 

+200 PRINTSPC(5)"[YELLOW][s L][3"[c @]"][ 

s N][RVSON][18" "][RVSOFF][s M][3"[c #1" 
I[s 61" о 

2210 PRINTSPC(8)"LYELLOW][c M][RVSON][20" 
[c U]"][RVSOFF][c G]" 

+215 PRINTSPC(8)"[YELLOW][c M][RVSON][20" 
"JERVSOFF][c G]" 

+220 FORD1-12288T012350:READS1:POKEDI, S1: 

NEXT 

+230 FORD2-12352T012414:READS2:POKED2, 2: 


ВТНЕМҮ1=Ү1+4 

+707 IFJV=20RJV=60RJV=10THENY1=Y1+4:IFY1> 
118THENY1=Y1-4 NK 
Ж “708 IFJV-40RJV-50RJV-6THENX1-X1-4:IFX1«9 
ОТНЕМХ1=Х1+4 

СМ +709 IFJV=80RJV=90RJV=1GTHENX1=X1+4:IFX1> 


HP 


24GTHENX1-X1-4 NO 
OM +720) IFFR=QANDPEEK(V+31)AND1=1THEN800 КР 
1730 W=W+1 EF 


JM +740 IFSC<40ANDW=30THENSYSO:PRINT" ":NEXT 


L:PRINT" " 


NEXT DF +745 IFSC-»40ANDW-25THENSYSO:PRINT" ":NEX 

“240 FORD3=12416T012478:READS3: POKED3, $3: TL:PRINT" " от 
NEXT PE +750 POKEV,X1:POKEV+1,Y1 GE 
+250 V=53248:S=54272:POKEV+39, 13:POKEV+40 “760 IFL<11THEN705 EB 
„7: РОКВУ+21 , 3: POKES+24, 15: POKES, 220 ІК *780 PRINT" ":GOTO280 GN 
*255 M=56320:0=65520:SC=0:TG=0:B=0:R=0 ВР +800 POKES+4,33:POKES+4,32:POKE783, PEEK (7. 

*260 POKES+1,68:POKES+5,15:POKES+6, 215:PO 83)AND254:POKE781 , X: POKE782, Y: SYSO: PRINT 

KES47,120:POKES48, 190:POKES+12,15 РЯ ЈА 
1270 POKES+13,215:P1=192:P2=193:P3=195:X1 +805 TG=TG+50 AC 
-100:Ү1-100:Х2-70:Н-2 JO “810 IFNOTPEEK(V+31)AND1=1THENNEXTL AP 


“280 Y2=INT(RND(1)*40)+70:R=R+1 : POKEV+21, 
3:H-H&. 4: IFH»33THENH-H-2 .4 GA 

“285 FORX2=70TO255STEPH GE 

“290 POKE2040,P1 BD 

е 200 POKE2041 ,P2:P2=P2+1:IFP2>194THENP2=1 

Ic 

“310 60808500 

“320 IFJV=1ORJV=5ORJV=9THENY 1=¥1-4:IFY1<6 
ВТНЕМҮ1=Ү1+4 

“330 IFJV=20RJV=60RJV=1/(/THENY1=Y1+4:IFY1> 
118ТНЕМҮ1-Ү1-4 

“340 IFJV=40RJV=50RJV=6THENX1=X1-4:IFX1<9 
OTHENX1-X144 


NK 


“820 POKE783,PEEK(783)AND254:POKE781 , X: PO 
KE782,Y:SYSO:PRINT" ":GOTO280 01 
1900 РОКЕУ%21,1:С5-5С%25%ТС:РКІМТ"|НОМЕ(( 
3" [DOWN |" ]"SPC(14)"[CYAN ]SCORE: "CS LH 
*905 IFCS>HSTHENHS=CS, 
*910 FORL=1T010 


AE 
MO 


CN +920 PRINT"[HOME] [4" [DOWN]" ]" SPC(14)"[c 8 


][RVSON ]GAME[RVSOFF ][3" "][RVSON]OVER[RV 
SOFF]":FORG-1TO56:NEXTG 

+930 PRINT"[HOME][ 4" [DOWN ]"]"SPC(14)"[c 8 
ЈСАМЕ[ 3" "]OVER":FORG-1T050:NEXTG BK 
1940 NEXTL: PRINT" [HOME ] [8" [DOWN ]" ]" SPC(11 
)"[WHITE]HIGH SCORE:"HS LF 


AE 


LL 
*350 IFJV-8ORJV-90RJVelOTHENXleXl44:IFXl» +945 Y2-INT(RND(1)*25)475 MI 
240ТНЕМХ1-Х1-4 NO +950 FORX2=75TO255STEP5S GA 
“355 IFFR=QANDPEEK(V+30)AND1=1THEN600 BO “955 POKEV+2,X2:POKEV+3,Y2 FL 
+360 POKEV,X1:POKEV+1,Y1 GE +960 РОКЕ2041,193 DB 
+370 POKEV+2,X2:POKEV+3,Y2 FL -970 IFA$=""THENPRINT" [HOME] [6"[DOWN]"]"S 

+400 NEXTX2:IFR>STHENPOKEV+21,1:GOT0900 МР РС(9)"[ИНІТЕЈНІТ ANY KEY TO START": FORG= 

+410 GOTO280 cG 1Т050:МЕХТ FD 
+500 JV=PEEK(M) LN 1980 PRINT" [HOME] [6" [DOWN ]"]"SPC(9)"[PURP 

+510 FR-JVAND16 AN LEJHIT ANY KEY TO START": FORG=1T050:NEXT LI 
+520 JV-15-(JVAND15) GH “985 POKE2041,194 ТА 
+530 RETURN ІМ “990 GETA$:IFA$-"THENGOTO1000 DI 
«600 POKEV+21,1:POKES+4,129:POKES+4,128:R *1000 IFA$<>""THEN1920 АЕ 
-0 ІК -1010 NEXTX2:GOTO945 HG 
+605 IFNOTPEEK(V+30)AND1=1THEN619 МЕ -1020 PRINT"[HOME] [3" [DOWN ]" ] SPC(14)" [13 

*610 POKEV&2, 70: POKEV43, 90 or dp DE 


+630 SC=SC+1 : IFSC=100RSC=200RSC=300RSC=40 
085С-50085С-60085С-70085С-80ТНЕН700 

+650 6070280 

+700 FORL=1T010:W=0: Y=INT(RND(1)*12)+12:X 
=INT(RND(1)*5)45 N 
+701 POKE783,PEEK (783) AND254 : POKE781 , X: PO 
XE782, Y: SYSO: PRINT"[RED][s W]" 

-705 60508500 

-706 IFJV=10RJV=SORJV=9THENY1=Y 1-4: TFY1<6 


OH 


106 AHOY! 


FE +1950 6010255 
CN +1100 РОКЕ53281,7:Р0КЕ53280,0 


КЕЛ PRINT" [НОМЕ] [4" [DOWN]" ]"SPC(14)"[11 
тот" ФЕ 


CG +1040 PRINT"[HOME][6" [ DOWN]" ]"5РС(9)"[20" 
түн JK 

В «1045 PRINT"[HOME][8" [DOWN]" ]"SPC(11)"[17 
JM 


тоту" 


сс 


+1120 PRINT" [CLEAR] [HOME]"SPC(13)"[RED] [3 
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IMPORTANT! 


"ж" ] [ BLACK JWELCOME[ RED] [ 3" ] 

11140 PRINT" LDOSN]'"SPCCLA)"LBLUE]DUCE—SH. 
oor 

-1160 PRINTSPC(8)"[BLUE]A SHOOTING onm 
Y GAME[DOWN]" 

-1180 PRINTSPC(5)"[BLACK]DUCKS ARE WORTH 
25 PTS EACH[DOWN]" 

+1200 PRINTSPC(5)"WHEN YOU SHOOT DOWN 10 
DUCKS [DOWN ]" 

-1210 PRINTSPC(5)"YOU ENTER A TIMED TARGE 
T ROUND[DOWN]" 

+1220 PRINTSPC(5)"TARGETS ARE WORTH 50 PT 
S EACH[DOWN]" NC 
+1230 PRINTSPC(5)"THE MORE DUCKS YOU [RED 
JSHOOT[BLACK] DOWN[DOWN]" GJ 
+1240 PRINTSPC(5)"THE [RED]FASTER[BLACK ] 
THEY WILL GO[DOWN]" 

+1241 PRINTSPC(5)"WHEN YOU MISS 4 DUCKS I 

N A ROW[DOWN]" NN 
+1242 PRINTSPC(5)"THE GAME IS OVER[DOWN]" JE 
+1245 PRINTSPC(5)"USE JOYSTICK--PORT #2" GJ 
1250 PRINT"[HOME](23"[ DOWN ]" ]"SPC( 8)"[ GR 
EEN]PRESS ANY KEY TO BEGIN": FORL=1T090:N 
EXT FI 
+1255 PRINT"[HOME][23" [ DOWN]" J"SPC(8)" [ YE 
LLOW]PRESS ANY KEY TO BEGIN":FORL=1TO10: 


сс 


NEXT HH 
*1260 GETA$:IFA$=""THEN1250 KE 
*1270 PRINT"[CLEAR]" : POKE53281 ,6 KA 
*1300 RETURN IM 
*2000 DATA 0,0,0,0,0,0,0,0 FG 
*2010 DATA 0,0,0,0,0,0,0,0 FG 
*2020 DATA 0,0,0,0,0,0,40,0 HH 
*2030 DATA 0,146,0,1,17,0,1,85 MC 
*2040 DATA 0,1,17,0,0,146,0,0 LK 
«2050 DATA 40,0,0,0,0,0,0,0 ЕР 
+2060 DATA 0,0,0,0,0,0,0,0 FG 
*2070 DATA 0,0,0,0,0,0,0 PD 
*2080 DATA 0,0,0,0,0,0,0,0 FG 
*2090 DATA 0,0,0,0,0,0,0,0 FG 
“2100 DATA 0,160,0,1,80,0,1,31 NJ 
*2110 DATA 0,2,213,0,5,0,2,169 AH 
*2120 DATA 0,11,233,64,53,86,32,238 BH 
*2130 DATA 236,32,21,64,32,5,128,64 BB 
*2140 DATA 0,85,0,0,0,0,0,0 кс 
*2150 DATA 0,0,0,0,0,0,0 PD 
*2160 DATA 0,0,0,0,0,0,0,0 FG 
*2170 DATA 0,0,0,0,0,0,0,0 FG 
*2180 DATA 0,160,0,1,80,0,1,31 NJ 
*2190 DATA 0,2,240,0,5,14,2,169 DL 
*2200 DATA 0,11,233,64,53,86,32,239 BG 
*2210 DATA 188,32,21,64,32,5,128,64 KH 
*2220 DATA 0,85,0,0,0,0,0,0 KC 
+2230 DATA 0,0,0,0,0,0,0 PD 


Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


FROM PAGE 73 VERSION I 
"1 REM BEFORE LOADING THIS PROGRAM YOU MU 
ST POKEA4,64: POKE16384 , 0: NEW KA 


*20 B-8192 :POKE53272,24 CN 
+25 POKE 53265,PEEK(53265) ОК 32 AL 
“30 FOR І-0 TO 7999 : POKE В+І,0 : NEXT СС 
*4( FOR J-1024 TO 2043 :POKEJ,1:NEXT PO 
*100 FOR X = 0 TO 319 STEP .4 BO 
+105 Ү-ІҺТ(100-(100%С05(Х/05))ЖЕХР(-Х/240 
)) FJ 
:150 CHAR-INT(X/8) pPI 
“155 ROW-INT(Y/8) AG 
"160 LINE-Y AND 7 BC 
:165 BYTE = B + ROW*320 + CHAR*8 + LINE AF 
+170 ВІТ-7-(Х AND 7) PJ 
*175 POKE BYTE,PEEK (BYTE) OR (2[UPARROW] 
BIT) 

*180 NEXT X NK 
*190 СЕТ A$: IF A$<>CHR$(133) THEN 190 ІН 


*205 OPEN4,4,5:CMD4:PRINT CHR$(10) CHR$(1 


0) HO 

+210 PRINT CHR$(27)"@":PRINT CHR$(27) CHR 
AF 
FG 


$(51) CHR$(16) 
“215 PRINT"[10" "]"; 

«220 PRINT"[54"-" ]"CHR$(10) JK 
«225 FORL=0 TO 24:PRINT CHR$(27) UM 
CHR$(249) CHR$(2); 

*230 FOR I-1 TO 119:PRINT chess В 
PRINT CHR$(245); LD 

“235 FOR CR - 0 TO 39: EI 

*240 FOR Р = 0 TO 7:PBYT-0:E-2[UPARROW]C 
7-P) HE 

*245 FOR LC = 0 TO 7 

+250 PBYT = PBYT-((PEEK(B+LC) AND Ed ы 
[UPARROW](7-LC) 


NM 


*255 NEXT LC: PRINT CHR$(PBYT) тент)” 

5 АМ 
“260 NEXT P : В=В+8 CN 
*265 NEXT CR: PRINT CHR$(245) CHR$(10); EP 
*270 NEXT L:PRINT CHR$(27)"Q" КР 
«275 PRINT"[10" "]"; FG 
*280 PRINT"[54"-"]" ON 
*285 PRINT#4, : CLOSEA АО 
+290 END IC 

VERSION 1! 

“1 REM BEFORE LOADING THIS PROGRAM YOU MU 

ST POKEA4,64:POKE16384 ,0: NEW KA 
*5 50 - РЕЕК(46)%256 4 РЕЕК(45) : 51 - 50 

-210 : 52 - 50-150 : В - 8192 JL 
“30 SYS 51 СЕ 
100 FOR X = 0 TO 319 STEP .4 BO. 


All the programs in this issue of Ahoy! are available on disk or cassette. See page 53. 
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IMPORTANT! Еее оо тие backoround are Bug Repellent ine codes. Do not enter them! Pages 85 and 86 explain these codes 
+ and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


*105 Ү-ІКТ(100-(100%С05(Х/05))ЖЕХР(-Х/240 


» FJ 
*150 CHAR-INT(X/8) PI 
*155 ROW-INT(Y/8) AG 
*160 LINE-Y AND 7 BC 
165 BYTE = B + ROW*320 + CHAR*8 + LINE AF 
*170 ВІТ-7-(Х AND 7) PJ 
*175 POKE BYTE,PEEK (BYTE) OR (2[UPARROW] 
BIT) 
*180 NEXT X NK 
190 СЕТ A$: IF A$<>CHR$(133) THEN 190 ІН 
*195 POKE 251,0 : POKE 252,32 ко 
*200 FOR I = 0 TO 7 : POKE 2048«I,2[UPARR 
OW]I : NEXT FP 
*205 OPEN4,4,5:CMD4:PRINT CHR$(10) CHR$(1 
0) HO 
"210 PRINT CHR$(27)"@":PRINT CHR$(27) CHR 
8(51) CHR$(16) AF 
“215 PRINT"[10" "]"; FG 
*220 PRINT"[54"-" ]"CHR$(10) 
*225 FORL=0 TO 24:PRINT CHR$(27) CHR$(76) 

CHR$(250) CHR$(2); IA 
*230 SYS S2 CE 
*265 PRINT CHR$(245) CHR$(10); PC 
*270 NEXT L:PRINT CHR$(27)"@" KP 
*275 PRINT"[10" "]"; FG 
*280 PRINT"[54"-"]" ON 
*285 PRINT#4, :CLOSE4 AO 
290 END Ic 

Machine code to be appended to VERSION II 
(see article for instructions) 

169 24 141 24 208 169 32 13 17 208 141 17 
208 169 32 133 252 160 0 132 251 169 0 145 
251 200 208 251 166 252 232 134 252 224 64 
208 242 169 8 133 252 132 251 169 1 145 
251 200 208 251 166 252 232 134 252 224 8 
208 242 96 162 0 169 0 32 210 255 232 224 
120 208 246 169 245 32 210 255 169 0 1418 


8 141 9 8 141 10 8 141 11 8 169 7 56 237 9 
8 170 189 0 8 141 12 8 169 7 56 237 10 8 
170 189 0 8 141 13 8 172 10 8 177 251 45 
12 8 240 10 173 13 8 24 109 11 8 141 11 8 
174 10 8 232 142 10 8 224 8 208 212 173 11 
8 32 210 255 32 210 255 169 0 141108141 
11 8 174 9 8 232 142 9 8 224 8 208 171 169 
0 141 9 8 169 8 24 101 251 133 251 144 5 
166 252 232 134 252 174 8 8 232 1428 8 
224 40 208 141 96 


FROM PAGE 56 
*2 60Т085 

*4 P2-22:G0T039 
+5 Ре+22:60Т039 


АНОҮ! 
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PL 
GG 
FB 


“7 P=-1:GOTO39 AK 
*8 P=-23:GOTO39 FB 
*9 P=+21:GOTO39 GG 
“11 P=+1:GOTO39 BF 
*12 Р--21:60Т039 EL 
"13 Р=+23:С0Т039 ЕЕ 


+15 POKEE-2,241:0=0+7:POKEE,241:F=F+1:IFF 
-ZTHEN52 ED 
*16 РОКЕЕ,135:РОКЕЕ-2,0:007048 

*30 PRINT" [CLEAR ]":V=36878: POKEV , 15: POKEV 
-9,255:РОКЕУ-1,8:Е-36876:А-7911:В-30720: 
Z=Z+5:P=0 

“31 TT-INT(RND(1)*400)47746:POKETT, 3. 

+32 FORT-1TOZ«EC*2:POKEE, 135: TT-INT(RND(1 
)*418)*7746; POKETT4B, 4: POKETT ,2: POKEE, 0: 
NEXT GI 
*34 FORT=1T0Z:POKEE, 241 : TT-INT(RND(1)*418 
)+7746:ТЕРЕЕК(ТТ) + 1ТНЕМЕ-Е+1 BD 
*35 POKETT4B, 5: POKETT, 1 : POKEE,O: NEXT 

“36 FORT-1TO500:NEXT: POKEE, 135: POKEE-1,13 
5 OB 
“38 POKEA+B,2:POKEA, . : POKEG,32:D=PEEK(828 
):SYS831:0NDG0TO4,5,6,7,8,9,10,11,12,13 AJ 
+39 G=A:A=A+P:PRINT" [HOME | [WHITE] [RVSON ]S 
CORE=";0;" CLONES=";S:Q=PEEK(A):IFQ=1THE 
N15 


CP 


FI 
EP 


IJ 


LJ 


*41 IFQ=2THEN69 NO 
*42 IFQ-3THEN56 NG 
*43 IFA»8142THENA-A-484 GL 
+44 IFAC7724THENA=A+484 IB 
*48 GOTO38 PB 


+52 POKEG, 32: POKEA, .:POKEA+B, 2: POKEE-2, 24 
1:FORT-1TO500; NEXT: POKEE-1 , 241 : FORT«1TO5 
0: МЕХТ 01 

“53 RL=RL+1:POKEE, 241 : FORT=1T0900; NEXT: PO 
KEE, .: POKEE-2, . : POKEE-1, . 

*54 5=5+1:Р=0:Е=0:60Т030 

+56 POKEE, 0: POKEG, 32: POKEA, . : POKEA*B, 2: PO 
KEE, 155: GOSUB59: POKEE, 0: GOSUB59 : POKEE, 20) 
0 МІ 

+57 GOSUB59:POKEE, 0: GOSUB59: POKEE, 241:GOS 
UB59: POKEE, 0: GOSUB59 : POKEE, 135:0=0+F*EC: 


MP 
DP 


P=) DH 
+58 GOTO43 PB 
+59 FORT=1T0100:NEXT:RETURN HC 


+60 POKEG,32:POKEA,4:POKEA+B, 7:FORT=15T00 
STEP-1:POKEV , T: POKEE+1 , 225+T :NEXT: POKEE+ 


1,0 PA 
+62 S=S-1:IFS=OTHEN65 CE 
+63 P=0:F=0:Z=Z-5:GOT030 BG 


+65 O=0+RL*50: PRINT" [HOME][11"[DOWN]"] [5 
"[RIGHT]" ][RVSON ] [YELLOW ]GAME OVER[BLACK 
J" :FORT-1T01000:NEXT : IFO>LTHENL=0 
+66 POKE36879, 24: PRINT" [CLEAR] [DOWN] [RVSO. 
N]YOUR[ DOWN ] [ 4" [LEFT |" ]SCORE=";0: PRINT"[. 
3" [DOWN]" ] RVSON JHIGH[ DOWN] [A" [LEFT]" 156 


IG 


ORE=";L 

+67 IFO<LANDL-O<50THENPRINT" [DOWN ] [ DOWN ] [ 
RVSON]CLOSE,BUT NOT CLOSE[6" "]ENOUGH." ВМ 
“68 PRINT"[DOWN][DOWN][RVSON]YOU GOT TO S 
CREEN"; RL: PRINTRL*50; " [RVSON ]BONUS." : PRI 
NT'[3" [DOWN ]" ] [RVSON ]HIT A KEY TO TRY АС 
АТК 

“69 GETA$:IFA$=""THEN69 

"70 Р0:0-0:Е+0:20:С0Т099 

“72 POKE36879,8: PRINT"[CLEAR][3" [DOWN]"][ 
B"[RIGHT]"][RVSON] [YELLOW ]S [RED ]P [ GREEN | 
E[CYAN JE[ PURPLE ]D[ YELLOW ] Y" : PRINT" [DOWN ] 
[PURPLE] В" [RIGHT ]" ]BY [DOWN ] [LEFT] [LEFT] 
KEVIN[ DOWN ][5"[LEFT]"]DEWEY" MJ 
“73 POKE36869 , 240: PRINT" [DOWN ] [GREEN SKIL 

L LEVEL(1-: 15)"; : INPUTEC FF 
“74 IFEC<1OREC>15THEN72 

“75 GOTO30 

“85 POKES52,28:POKE56,28:CLR:FOR A=828 TO 
881:READB:POKEA,B:NEXT 

"86 FORI=7168T07679:POKEI , PEEK (L425600) :N 
EXT: FORC=7168T07208:READB:POKEC,B:NEXT МН 
“90 DATA 0,0,0,169,127,141,34,145,169,0,1 
41,19,145,173,32,145,74,74,41,32,141,62, 
3 


FJ 


NP 
GE 
JJ 


EE 
0J 


AC 


*91 DATA 173,17,145,41,28,13,62,3,74, 74, 
73,15,141,60,3,173,17,145,41,32 

*92 DATA 73,32,141,61,3,169,255,141,34,14 
5,96 

*93 DATA60,126,219,255,231,189,66,60,255, 
126,90,255,165,189,129,255,255,90,126,23 
1,255 

*94 DATA129,189,255,255,145,145,159,249,1 
37,137,255,137,74,44,224,7,52,82,145,0,0 JN 


IH 


+99 S-7:RL-1:G0T1072 BI 
MAPPING 4.4. 

FROM PAGE 45 

*] REM Жжжж жж оов DN 
*2 REM * MAPPING 4.4 * HN 
+3 REM * BY * IA 
*4 REM * J.M.MARCANO * РВ 
«5 REM ЭЖЖ жж жж ж жж жжжжжжжж. DN 
*6 REM 8/29/84 AN 
*10 REM Жә CENTRAL SECTION Жән II 
*15 POKES3280,8:POKE53281,0:D$-"? 27" МЕ 
*20 PRINTCHR$(147) :FORI=1T011;PRINT:NEXT: 
PRINTCHR$(158)SPC(17)"WAIT" 

+25 FOR AD-828TOB88:READVA:POKEAD, VA:NEXT 
AD GM 


"30 FORI-49152T049543:READC:POKEI,C:NEXT HE 
:40 SYS49309:SYS49385 : POKE81,197:SYS49512 

:GOSUB169:SYS49152:GOSUB190:GOSUB350 EA 
“50 REM ** ALL THE FUNCTIONS COME HERE ** LL 
«55 DEFFNF(X)=SIN(X) EN 
“60 GOSUB210 с 
70 ОМКСОТО260,790,490,280,810,830,850 „60 LL 
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+100) REM *** DIRECTORY FOR F'S KEYS **** FK 
+110 PRINTCHR$(19)CHR$(30) : FORI-1TO20: PRI 
NT:NEXT ОР 
+115 PRINT" Fl:GRAPHIC CLEANER[7" ")Е2:5Т 
ORE(M+)" 

120 PRINT" F3:RANGE CHANGER[9" "ЈЕ4: ERA 
LL" 

*130 PRINT" F5:FUNCTION CHANGER[6" "]F6:; «Е 
LEAR MRY" NK 
*140 PRINT" F7:COMPARE WITH MRY[6" "]F8:N 

0 DEFINED"CHR$(19)CHR$(154) HL 
“150 RETURN TM 
*160 REM **TRANSFER THE CHAR. TO SCREEN** B 
*170 С-55341:.7-1069:1,-106 

180 FORI=0T014:POKEJ+I,L:;POKEC+I,1: oo 
:NEXT BA 
190 C=C+40: J2J440: IFJ<1464THEN180 ML 
“200 RETURN 

*205 REM *** SET UP ERROR TRAPPING IN 870 
жжж сі, 
“206 T$-"GOTO" «STR$(870)4CHR$(0) MJ 
*207 FOR AD=1 TO LEN(T$):POKE891+AD, ASC(M 
ID$(T$,AD,1)):NEXTAD PG 


DB 


*208 SYS875 EF 
EL >209 RETURN IM 
*210 REM ****** INPUT SUBROUTINE ****** ВК 
MD +215 GOSUB205 CJ 
*220 GETK$:IFK$=""THEN220 GH 


PJ +230 IFK$=CHR$(133)ORK$=CHR$(134)ORK$=CHR 


$(135) ORK$=CHR$(136 )THEN240 
“231 IFK$=CHR$(137)ORK$=CHR$(138)ORK$=CHR 


PH 


$(139) ORK$=CHR$(140)THEN240 16 
“235 6010220 BM 
“240 Ҡ-А5С(К5)-132 NL 
*250 RETURN ІМ 
“260 КЕМ **CLEAR CHAR.** (Fl ROUTINE) МІ 
1270 5Ү549385:60Т060 МА 


1280 REM **CLEAR OPERATION** (F7 ROUTINE) ON 
*285 ONNGOTO290,295 NP 
*290 POKE81,202:SYS49512:POKE81, 202:SYS49 
416:POKE81,197:SYS49464 :N=2:GOTO60 JB 
+295 SYS49385:POKE81 , 202:SYS49464:N=1:GOT 
060 HM 
1300 КЕМ *** CLEAR DATA AREA *** 

"310 FORJ-1064TO1424STEP4( 

1320 FORI-J423T0J439: POKEI, 32: NEXTI : NEXTJ 
:RETURN КЕ 
“330 REM *** CLEAR WORK AREA *** GD 
1340 FORI-1544TO1743:POKEI,32:NEXT: RETURN СТ 
“350 REM *** SET UP DATA AREA Жж FM 
+360 PRINTCHR$(19)CHR$(159):PRINT:PRINTTA 


сс 
NL 


В(23)"Х0-";Х0 GM 
1370 PRINTTAB(23)"XMz" ; XM NO 
*380 PRINTTAB(23)"YO="; YO LI 
+390 PRINTTAB(23)"YM="; YM OK 
+400 PRINT:PRINTTAB(23)"PIXELS:";DX BA 


D 2410 PRINT:PRINTTAB(23)"DATA FROM c 


54);D$ 


“420 
*430 
*440 
1450 

INT 
*460 


RETURN 


ІМ 
REM *** SET UP THE FUNCTION AREA *** CN 


FORI=9T039: POKE1784+1 ,32:NEXT JM 
PRINTCHR$(19)CHR$(159):FORI-1TO18:PR 
1NEXT:PRINT" KH 
RETURN IM 
*470 REM **** POSITION ON WORK AREA **** BA 
+480 PRINTCHR$(19):FORI-1TO13:PRINT:NEXT: 
RETURN FI 
+490 REM **INPUT FUNCTION **(F5 ROUTINE) m 
*495 GOSUB330:GOSUBA70 

*500 PRINTCHR$(159)"ENTER THE 2DN MEMBER 
OF THE F'N ON X " 

*505 INPUTA$:IFLEN(A$)<29THENS1O 

*506 PRINT"MUST HAS LESS THAN 29 CHARACTE 
RS": FORI20TO1000: NEXT: G0TO495 

*510 GOSUB330:GOSUBA30: PRINTCHR$ ( 19) CHR$( 
144) :FORI-1TO14:PRINT:NEXT:PRINT; 

*520 PRINT"SSD[s ЕЈЕМЕ(Х)=";А$ 

+530 PRINT"RUNSO 

«55/) POKE631, 13: POKE632, 13: POKE633, 13: POK 
E198,3:END 

+560 REM ***INPUT RANGE SUBROUTINE*** 
+570 PRINTCHR$(154) :GOSUB330: GOSUBA70: INP 
UT"XO, XM" ; XO, XM 

*580 IFXO<XMTHEN600 

*590 PRINT"MUST BE XO«XM": FORI-0TO1000:NE 
ХТ:6070570 АН 
«600 GOSUB330: GOSUBA70: INPUT"'YO , YM"; YO, YM ХЕ 
“610 IFYO<YMTHEN639 

“620 PRINT"MUST BE YO«YM":FORI-OTO1000: xe 


зА 


GE 
IH 


MA 
BO 


IL 
CP 


ХТ:60Т0600 АЕ 
«630 GOSUB330:GOSUBA470: INPUT"AMOUNT OF PI 
XELS FOR THE GRAPHIC";DX AK 


*635 IFDX»UTHENGOSUB330: RETURN KL 

“640 PRINT"MUST BE >0":ЕОВТ+0ТО1000:МЕХТ: 
6070630 NH 

*650 REM жж FUNCTION EVALUATER **** 

+66) IFSGN(X0)-SGN(XM)THEN670 

*665 X=-X0*119/(XM-X9) : FORY20TO79STEP5: GO 
SUB750:NEXT ID 

“670 IFSGN(YO)-SGN(YM)THEN700 

*675 Ү-Ү0%79/(ҮМ-Ү0)%79:ЕОЕХ-0101195ТЕР5: 
GOSUB750:NEXT 


AB 


“700 SX=(XM-X9) /DX ND 
*710 FORI-XOTOXMSTEPSX ME 
“720 F-FNF(I):IFFXYOORFPYMTHEN740 CH 


«730 Х=(І-Х0) / (XM-X0)*119: Y2(YO-F) / (YM-YO. 
)*79479:GO0SUB756 Li 

“740) NEXT: RETURN 

+750 REM ****** GRAPHIC MAKER ****** 

“760 RO-INT(Y/8) :CH-INT(X/8) :LI=YAND7 

“770 BIT=7-(XAND7) : BYT=13136+RO*120+CH*8+ 
LI:POKEBYT,PEEK(BYT)OR(2 [UPARROW]BIT) LC 

*780 RETURN IM 

+790 REM **INPUT RANGE ROUTINE**(F3-ROUTI p 
NE) 

800 D$="USER" : GOSUB560: GOSUB300: GOSUB659 


EJ 
FJ 
BN 


:GOSUB350:GOTO60 BN 
“810 REM **** STORE (F2-ROUTINE) Жж KA 
“815 РОКЕ81,197 MC 


“820 SYS49416:X1=X0:X2=XM: Y1=Y0:Y2=YM: DM= 
DX:POKE55296, 5: POKE1024, 13: GOTO60 

*830 REM **** RECALL **** (FA4-ROUTINE) 

1840 РОКЕ81,197:5Ү549464:ТЕХ1-Х2ТНЕМСОТО6 
) NA 

*842 D$-"MEMORY" : GOSUB300: X0-X1 : XM-X2 : Y0- 
Y1: YM-Y2: DX-DM: GOSUB350: СОТО6О IB 

*B50 REM **MEMORY CLEANER** (F6-ROUTINE) MN 

250) РОКЕ81,197:5Ү549512:Р0КЕ55296,0:00Т0 
) 

+870 КЕМ *** ERROR TRAPPING *** 

+880 GOSUB470 


ТМ 
IL 


CP 
ЕН +885 EN-PEEK(889):IFEN»127THENPRINTCHR$(1 
MG 


9) :FORI-1TO11:PRINT:NEXT:END 


Е «900 IFEN-IITHENPRINT"CHECK THE FUNCTION. 


USE <F5>" КР 
+910 IFEN=20THENPRINT"DIVISION BY ZERO. [4 
" "JCHANGE RANGE" 
+920 IFEN-25THENPRINT"THE FUNCTION IS TOO 
COMPLEX. REDEFINE IT" 
-930 IFEN-ISTHENPRINT"NUMBER TOO SMALL OR 
TOO HIGH.REDIFINE IT" 


BE 


А *940 IFEN-STHENPRINT"DEVICE NOT PRESENT. 


REPEAT OPERATION" 
+950 607050 PD 


*5000 REM ** MACHINE LANGUAGE ROUTINES ** JA 
*5010 REM 49152-SET UP THE FORMAT см 
+5020 REM 49309-МОУЕ CHARACTERS RAM[BACKA 

RROW]ROM NP 
+5030 REM 49385-CLEAR THESE CHARACTERS DI 
*5040 REM 49416-STORE ROUTINE HH 
5050 REM 49464-RECALL ROUTINE Lc 
“5060 REM 49512-CLEAR ROUTINE NE 
“5070 REM 00875-5ЕТ UP TRAPPING FI 


+5950 DATA169,139,141,0,3,169,227,141,1,3 
,165,58,141, 123 JE 
-5960 DATA3,201,255,240,39,165,57,141,122 
,3,142,121,3, 160 СР 
“5970 DATAO, 185, 124,3,153,0,2,240,3,200,2 
08,245,162,255 ОР 


G +5980 ТАТА160,1,76,134,164,169,60,141,0, з 


,169,3,141,1 

-5990 DATA3,96,108,0,3 

“6000 DATA169,61,162,40,157,223,5,157,207 
6,202,208,247,169,4,162,40,157,223,217 DN 


n; 


А +6010 DATA157,207,218,157,31,219,202,208, 


244,169,45,162,40,157,31,7,202,208,250 РІ 
+6020 DATA169,72,162,0,157,44,4,157,84,4, 
157,124,4,157,164,4,157,204,4,157,244 LH 


*6030 DATA4,157,28,5,157,68,5,157,108,5,1 
57,148,5,208,5,162,16,169,71,76,43,192 PA 
-6040 DATA169,13,162,0,157,44,216,157,84, 
216,157,124,216,157,164,216,157,204,216 CD 


I +6050 DATA157,244,216,157,28,217,157,68,2 


17,157,108,217,157,148,217,208,5,162,16 KH 
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-6060 DATA76,86,192,169,69,162,15,157,188 
,5,202,208,250,169,82,162,15,157,4,4 
+6070 DATA202,208,250,169,13,162,15,157,1 
88,217,157,4,216,202,208,247,96,173,14 АН 
+6980 DATA220,41,254,141,14,220,165,1,41, 
251,133,1,169,0,133,80,133,78,169,208 
+6090 DATA133,81,169,48,133,79,162,8,160, 
6),177,80,145, 78, 136, 192,0, 208, 247,202 
+6100 DATA240,7,230,81,230,79, 76,189,192, 
165,1,9,4,133,1,173,14,220,9,1, 141,14 
+6110 DATA220,173,24,208,41,240,9,12,141, 
24, 208, 96 

+6120 DATA169,80,133,80,169,0,160,0,162,5 
1,134,81,145,80, 136,208, 251,232,224,55 МЕ 
+6130 DATA208, 244,153,80,55,200,192,177,2 
08,248,96 FA 
*6140 DATA169,80,133,78,169,51,133,79,169 
,0,133,80,234,234,234,234,162, 5, 160,0 
«6150 DATA177,78,17,80,145,80,200,208,247 
,230,81,230,79,202,208,240,177 ,78,17 
«6160 DATABO, 145,80, 200,192,177, 208,245,9 
6,169,80,133,78,169,51,133,79,169,0 
+6179 DATA133,80, 234,234, 234,234,162,5,16 
0,0,177,80,17,78,145,78, 200, 208,247 
*6180 DATA230,81,230,79,202,208,240,177,8 
0,17,78,145,78,200,192,177 208, 245,96 
+6190. DATAL69 ,0, 133,80, 234,234,234, 234,16 
2,5,160,0,169,0,145,80,200,208,251 

+6200 ОАТА230,81,202,208,246,145,80,200,1 
92,177,208,249,96 


TOWERS OF HANOI 


FROM PAGE 17 
*10 REM - TOWERS OF HANOI FOR COMMODORE 6 
4 ОЕ 


НВ 


DH 
LB 
BD 


FM 
GC 
AG 
AI 
DE 


JD 
NK 


*20 REM - DANIEL MILLER DK 
*30 REM - 2815 34 STREET OA 
“40 REM - ASTORIA, QUEENS AL 
“50 REM - NEW YORK, NEW YORK 11103 GM 
*60 REM - SEPTEMBER 1, 1983 HN 
“70 REM жожо ее Ту 
“80 60702150 FL 


:90 POKE53281 ,1:22-1:PRINTCL$; LEFT$(DO$,2 
);ТАВ(11); HDG$; 

“100 РОКЕ55587,10:Р0КЕ1315,49:Р0КЕ55595,1 
0:РОКЕ1323,50:РОКЕ55603,10:РОКЕ1331,51 
“110 PRINT LEFTS(DOS, 20);TAB(5); А$(1); LEF 
T$(DO$,9) ;TAB(11);A$(3); 

120 PRINTLEFT$(DO$,9) ;TAB(19);A$(3);LEFT 
$(D0$,9) ;TAB(27) ;A$(3) 

*130 REM - PLACE SPRITES ON TOWER #1 

“140 POKEV+14,93:POKEV+15, 160;POKEV+12,93 
:POKEV+13,151:POKEV+19,93:POKEV+11,142 МІ, 
+150 POKEV+8,93:POKEV+9,133:POKEV+6,93:PO 
KEV+7,124:POKEV+4 ,93:POKEV+5,115 


DF 


HK 
PM 


II 


Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


+160 POKEV+2,93:POKEV+3, 106: POREV40,93: PO 
KEV+1,97 OA 


+176 IF YN$-"Y" THENN2-8-NUM:GOTO206 FO 
+180 IF 22-0 THEN350 HO 
+190 PRINTLEFT$(DO$, 22) ; TAB(8) ; NUM$ ; : INPU 

T NUM:N2-8-NUM:SP-0:IF NUM-8 THEN270 KC 
+200 IF NUM<2 OR NUM>8 THENPRINT LEFT$(DO 

$,22);TAB(5); SP$; :GOTO190 MH 
*210 IF NUM=8 AND YN$-"Y" ТНЕМ270 HA 
“220 N4=N2 LG 
+230 FOR X-1 TO N4 NB 
+240 SP=SP+(2[UPARROW](N4-1)) HP. 
*250 N4=N4-1:NEXT X KC 
“260 РОКЕУ%21,(255-5Р) GP 


ZZ-0:FOR ТМ-1 TO 250:NEXT TM:PRINTLE 
);TAB(5) ;SP$; LF 
:T2$="":T3$="":N3=N2+1 DB 
1 TO NUM:T1$=T1$+T4$(X):T2$=T2 
3$-T3$4T6$(X) :NEXT X GN 
-"Y" THEN1430 BE 
+310 FOR Х-1 TO NUM:Y-2[UPARROW]X-1:NEXT 

X NG 
+320 м-н С ШЕ (NUM) SRORISIYS а 
V$4G2$4STR$ (Y)4SLV$(2) : YO-Y 

+330 PRINTLEFT$(DO$ ,22) ; TAB(6) ;NUM$; : FOR 


ТМ=1 TO 2000:NEXT TM 
+340 FOR TM=1 TO 250:МЕХТ TM:PRINTLEFT$(D 
0$,22); TAB(5) ;SP$; PF 
-350 PRINTLEFT$(DO$, 22) ;TAB(6) ;F9$;"[4" " 
1";ТАВ(24);Т9$;"[4" "J"; KA 
“360 PRINTLEFT$(DO$,22) ;TAB(6);F9$;" ";CR 
; G 
; 
+370 NUM$="":SLV$(1)="":SLV$(2)=" ор 
“380 IF 24-2 THEN420 ЕР 
+390 СЕТ TWR$(1):IF TWR$(1)="" THEN390 АО 
-400 IF TWRS(1)="[F1]" THENI330:REM — "РІ 


MN 
IF (TWR$(1)<"1" OR TWR$(1)>"3") THEN 


“410 
TWR$(1)="":GOTO390 FB 
+420 PRINT RV$+RED$+TWR$(1)+RO$; BN 
+430 60808520 сі, 
+440 PRINTLEFT$(DO$,22);TAB(34);" ";CR$; DN 
+450 IF ZA=2 ТНЕМ480 FB 
-460 GET TWR$(2):IF TWR$(2)="" THENA60 СІ 
NF -470 IF TWR$(2)«"1" OR TWR$(2)>"3" THENTW 
R$(2)="":GOTO460 BK 
+480 PRINT RV$+RED$+TWR$(2)+RO$; FC 
*490 IF TWR$(1)<>TWR$(2) ТНЕМ510 AJ 
EB +500 ER$=RV$+RED$+" INVALID ENTRIES"+RO$: 
6070610 BL 
+510 6010640 CG 
+520 X-1:GOSUB530: RETURN GM 
+530 ON VAL(TWR$(X)) GOTO540, 560,580 GI 
+540 IF VAL(T1$)-0 ТНЕМ6ОО HL 
“550 RETURN IM 
+560 IF VAL(T2$)-0 ТНЕМ600 FG 
AHOY! Ш 
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+570 RETURN ІМ 
+580 IF VAL(T3$)=0 THEN600 HJ 
+590 RETURN ІМ 
-600 ERS=RV$+RED$+"TOWER # "+TWR$(X)+" IS 
EMPTY"+RO$ HB 


+619 FOR Y=1 TO 5:PRINTLEFT$(DO$, 24) ;TAB( 
12)ER$;:FOR TM=1 TO 250:NEXT TM PJ 
+620 PRINTLEFT$(DO$ 24) ;TAB(12) ; LEFTS(SP$ 

,18);:FOR ТМ-1 TO 250 ND 


“630 NEXT ТМ,Ү:ЕВб-"":0070350 NE 
*64( ON VAL(TWR$(1)) GOTO650,680,710 DN 
*650 FOR Х-1 TO NUM:IF MID$(T1$,X,1)="1" 

THEN670 GA 
+66 NEXT Х:10С(1)+160:6010740 GN 


670 LOC(1)=T1(N2+X) : TA$(N2-X) -"0" : GOTO74 
[7] LF 
*680 FOR X=1 TO NUM:IF MID$(T2$,X,1)="1" 


ТНЕМ700 BP 
*690 NEXT X:LOC(1)=160:GOTO740 GN 
“700 LOC(1)=T2(N2+X) : T5$ (N24X) 20" : GOTO74 

0 DB 
*710 FOR Х-1 TO NUM:IF MID$(T3$,X,1)="1" 

ТНЕМ730 DD 
*720 NEXT X:LOC(1)=160:GOTO740 GN 
*730 LOC(1)=T3(N2+X) :T6$(N2+X)="0" KB 
740 LC=LOC(1) : GOSUB880: SP(1)-SP NF 
“750 ОМ VAL(TWR$(2)) GOTO760, 790,826 ок 
“760 FOR Х=1 TO NUM:IF MID$(T1$,X,1)="1" 

ТНЕМ780 GG 
*770 NEXT X:L0C(2)2160: TÁ$ (N24X-1) "1" : GO 

TO856 IG 


*780 LOC(2)=T1(N2+X-1) :T4$(N2+X-1)="1":GO 
Т0850 

“790 FOR Х=1 TO NUM:IF MID$(T2$,X,1)="1" 
ТНЕМ810 6Ј 
“800 NEXT X:LOC(2)=160:T5$(N2+X-1)="1":GO 
Т0850 MD 
“810 LOC(2)-T2(N24X-1) :T5$(N2+X-1)="1":GO 
T0850 LN 
"820 FOR Х=1 TO NUM:IF MID$(T3$,X,1)="1" 


ТНЕМ840) DJ 
*830 NEXT X:LOC(2)=160:T6$(N2+X-1)="1":GO 

T0850 LA 
«840 LOC(2)=T3(N2+X-1) :T6$(N2+X-1)="1" AF 
“850 LC=LOC(2): 60508880:5Р(2)-5Р DJ 


*860 Т1$="":Т2$="":Т3$=" 
*870 FOR X=N5 TO 8:T1$=T1$+T4$(X) :T2$=T2$ 
+158(Х) :T3$=T3$+T6$(X):NEXT X:GOTO960 ЕР 


*880 IF LC-97 THENSP-1:RETURN EN 
890 IF 1С-106 THENSP=2:RETURN GL 
“900 IF LC=115 THENSP=3:RETURN FA 
+910 IF LC=124 THENSP=4:RETURN HB 
+920 IF LC-133 THENSP-5:RETURN GO 
+930 IF LC=142 THENSP=6:RETURN HH 
1940 IF LC=151 THENSP=7:RETURN HM 
*950 IF LC-160 THENSP=8:RETURN GN 
*960 ON VAL(TWR$(1)) GOTO976,980,996 BP 
*970 SQZ-RIZ(1,SP(1)):RIZ(1,SP(1))-8:GOTO 
02 AHOY! 
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1000 FH 
+980 SQZ=R22%(1,SP(1)):R2%(1,SP(1))=8:GOTO 

1000 XN 
+990 SQZ-R3Z(1,SP(1)):R32(1,SP(1))-8 GI 


*1000 ON VAL(TWR$(2)) GOTO1010,1020,1030 HF 
*1010 RIZ(1,SP(2))-SQ2:GOTO1040 IH 
+1020 Е22(1,5Р(2))-50%:00701040 KK 
+1030 Е32(1,5Р(2))-50% EE 
+1040 ON VAL(TWR$(1)) G0TO1050,1060,1070 NM 
+1050 X1=93:GOTO1080 DC 
*1060 X1=157:GOTO1080 HJ 
“1070 Х1-222 NL 
:1080 ON VAL(TWR$(2)) G0TO1090,1100,1110 JF 
*1090 X2-93:G0T01120 EA 
*1100 X2-157:G0T01120 IB 
+1110 X2-222 NO 
1120 REM - MOVE SPRITE OB 


+1130 ON SQ%+1 60701140,1150,1160,1170,11 
80,1190,1200,1210 


+1140 SP-0:SQ-1:G0T01226 KL 
1150 MP 
*1160 BD 
41170 OH 
*1180 ML 
+1190 SP=10:SQ=11:GOTO1220 CK 
+120) SP=12:SQ=13:GOTO1220 CK 
*1210 5Р-14:50-15 JN 
*1220 


60 
+1230 FOR YY-LOC(1) TO 55 STEP-1:POKE V+S 


IF VAL(TWR$(1))>VAL(TWR$(2)) THEN12 
PE 


Р,Х1:РОКЕ V+SQ,YY:NEXT YY EA 
+1240) FOR XX=X1 TO X2:POKE V+SP,XX:POKE V 
+50,55:МЕХТ XX ВА 


“1250 FOR ҮҮ-55 TO 10С(2):РОКЕ V+SP,X2:PO 
КЕ V+SQ,YY:NEXT YY:GOTO1290 бЕ 
“1260 FOR YY-LOC(1) ТО 55 STEP-1:POKE V+S 
Р,Х1:РОКЕ V+SQ,YY:NEXT YY EA 
*1270 FOR ХХ-Х1 TO X2 STEP-1:POKE Ү+5Р,ХХ 
:РОКЕ V+SQ,55:NEXT ХХ MO 
“1280 FOR ҮҮ-55 TO LOC(2):POKEV+SP,X2:POK 
ЕҮ+50,ҮҮ:МЕХТ YY NI 
+1290 MV=MV+1 :PRINTLEFT$(DO$,24);TAB(17); 
MV$+RV$+B2$+STR$(MV)+RO$; Hi 
+1300 IF ZA-2 THENMW=MW+1:GOTO1440:REM - 


COMPUTER'S NEXT MOVE JG 
+1310 GOTO350:REM - PLAYER'S NEXT MOVE GN 
“1320 REM - COMPUTER SOLUTION NO 
+1330 TWR$(1)="": PRINTLEFT$(DO$ , 24) ; TAB(7 
;CMP$; H 
+1340 GET YN$:IF YN$-"" ТНЕМ1340 ID 
+1350 IF YN$="Y" THEN1370 BH 


-1360 IF YN$<>"N" THENYN$="":GOTO1330 ЈС 
+1370 PRINT RV$+BL$+" "+YN$+RO$;:FOR TM=1 
TO 500:МЕХТ TM:IF ҮМ$="Ү" THEN1420 JF 
-1380 FOR TM=1 TO 1000:МЕХТ TM MJ 
71390 PRINTLEFT$(DO$ 24) ; TAB(7) ;SP$;LEFT$ 
(D0$,24) ;TAB(9) ;ENS ; 00 
:1400 СЕТ RT$:IF RT$<>CHR$(13) THEN1400 ВІ 


“1410 POKE V+21,0:PRINT CL$;:END 

1420 5Р-0: 

+1430 YN$="" 
7);5Р$; 

*1440 BI$="":FOR Х-1 TO 8:BI$(X)="0":NEXT 
X 


:PRINTLEFT$(DO$, 24) ; TAB( Б 
H] 


со 
“1450 IF MV-YO THEN1380 PL 
*1460 СТ-ЕВЕ(0) IL 
1470 C2=0:C3=0:C4=0:C5=0:C6=0:ZA=2 BI 


*1480 DEC-MW CI 
*1490 FOR Y= TO 8:IF INT(2[UPARROW]Y)>DE 
C ТНЕМҮ=Ү-1:ВІ$(Ү)="1":60701510 

*1500 BI$(Y)="O":NEXT Y 

1510 DEC=DEC-2[UPARROW]Y:IF ОЕС+0 THEN15 
30 

+1520 60701490 

*1530 FOR Y=7 TO 0 STEP-1:BI$=BI$+BI$(Y): 
NEXT Y 

*1540 FOR X=8 TO 1 STEP-1:IF MID$(BI$,X, и 
)="0" THENC2=C2+1:NEXT X 

*1550 C2-C241 

*1560 RIZ=C2+NUM-1:0N NUM-1 60701570,1580 


EE 


GF 


1590,1600,1610,1620,1630 MP 
*1570 RIX-RIZ44:GOTO1640 KD 
“1580 RIZ=R1%+2:GOTO1640 MB 
*1596 60701640 FM 
: MC 

KM 

LG 

*1630 RIZ-ABS(RI DD 


) 

+1640) FOR Х-1 TO 8:IF RIZ(1,X)-RIZ THENTW 
R$(1)2"1":GOTO1670 HH 

*1650 NEXT X:FOR Х=1 TO 8:IF R2Z(1,X)-RIZ 
THENTWR$(1)="2":GOTO1670 GJ 

*1660 NEXT X:TWR$(1)="3" 

:1670 L$=TWR$(1) 

*1680 FOR X=1 TO 8:IF MID$(BI$,X,1)="1" T 
HENC3=C3+1:NEXT X:GOTO1700 

1690 NEXT X 

1700 IF С3>1 THEN1740 FC 

1710 IF VAL(T1$)=0 THENTWR$(2)="1":GOTO3 
50 

"1720 
50 

+1730 
50 

“1740 FOR Х-8 TO 1 STEP-1:C4=C4+1:IF E ы 
(BI$,X,1)="0" THENNEXT X 

+1750 с6-С4 

+1760 FOR Х-8-С4 ТО 1 STEP-1:C6=C6+1:IF M 
10%(В15,Х,1)-"0"ТНЕМС5-С5%1:МЕХТ X IF 

*1770 RJ%=C6+NUM-1:0N NUM-1 GOTO1780,1790 
,1800,1810,1820,1830,1840 KM 

*1780 RJ%=RJ%Z+4:GOTO1859 

:1790 RJZ=RJZ+2:GOTO1850 

*1800 60701850 

*1810 RJZ-RJZ-2:G0TO1850 

*1820 RJZ-RJZ-4:GO0TO1856 


A0 
MH 


NK 


IF VAL(T2$)=0 THENTWR$(2)="2":GOTO3 
он 

IF VAL(T3$)=0 THENTWR$(2)="3":GOTO3 
CF 


та 


РС 
NI 
GF 
NF 
KH 


httg 


ww.oldgamesit:; 


+1830 RJZ=RJZ-6:G0T01850 NJ 

+1840 RJZ=ABS(RJZ-8) EH 

+1850 FOR Х=1 TO 8:IF RIZ(1,X)-RJZ THENTX 
$="1":С0Т01880 РС 

+186) NEXT X:FOR Х=1 TO 8:IF R2Z(1,X)-RJZ 
THENTX$z"2" :GOTO1880 

“1870 NEXT X:TX$="3" 

*1880 M$-TX$ 

*1890 LM$-L$4M$ 

1900) IF (C5/2)-INT(C5/2) OR C5=0 
$(2)-TX$:G0TO1976 

*1916 IF LM$="12" THENTWR$(2)="3" 
0 


IF LM$="13" THENTWR$(2)="2"; 


KI 
cB 
PH 
AO 
THENTWR 
OF 
:6010197 
ос 
“1920 6070197 
0 Dc 
+1930 IF LM$="23" THENTWR$(2)="1":GOTO197 
0 HA 
+1940 IF LM$="21" THENTWR$(2)="3":GOTO197 Т 
0 N 
+1950 IF LM$="31" THENTWR$(2)="2":GOTO197 


0 ос 
11960 IF LM$="32" THENTWR$(2)="1" EL 
-1970 L$="":M$="":LM$="":CT=FRE(⁄) :G01035 

0 FO 
*1980 REM - BUILD SPRITES FI 
+1990) V=53248:POKEV+21,255:POKEV+23,255:P 
ОКЕҮ+29,255 РЕ 
“2000 POKE2040,192:POKE2041 ,193:POKE2042, 
194:РОКЕ2043,195:РОКЕ2044,196 ND 
+2010 POKE2045,197:POKE2046, 198: POLE2047 , 
199 

“2020 POKEV439,3:POKEV440, 15: POKEV441,13: 


POKEV+42,9:POKEV+43,14:POKEV+44,5 JC 
*2030 РОКЕ V+45,8:POKEV+46,0 сб 
*2040 RESTORE:NQ=12288:FOR Х-1 TO 8:FOR М 

#0 TO 62:READ Q:POKE NO+N,Q:NEXT N EF 


*2050 NO-NO*64:NEXT X NB 
-2060 T1$="[8"1"]":T2$="[8"0"]":T3$="[8"0 
түп DP 


+2070 FOR Х=1 TO 8:T4$(X)=MID$(T1$,X,1):N 
EXT X FJ 
rend FOR Х-1 TO 8:TS$(X)=MID$(T2$,X,1):N 

EXT MJ 


ix FOR Х-1 TO 8:T6$(X)=MID$(T3$,X,1):N 
EXT X PF 
*2100 2%=97:FOR Х-1 TO 8:71(Х)-24:Т2(Х)-2 
2:Т3(Х)-22:72-24%9:МЕХТ X PC 
+2110 YZ-0:FOR Х=1 TO 8:R1Z(1,X)=Y%:YZ=Y% 
+1:NEXT X PF 
“2120 FOR Х-1 TO 8:R22(1,X)-9:R32(1,X)-9: 


NEXT X DM 
+2130 IF YN$-"Y" ТНЕМ140 ос 
+2140 6071090 РР 
+2150 REM - BUILD CHARACTER GRAPHICS PH 
+2160 BLK$-CHR$(144):RED$-CHR$(28):YEL$-C 

HR$(158) :B2LU$=CHR$(31):CY$=CHR$(159) МІ, 


"2170 GIREY$-"[c 4]":G2REY$="[c 5]":REM 
С-(4); C=(5) 


http://www.c 


+2180 RV$=CHR$(18) :RO$=CHR$(146) HK 
“2190 CL$=CHR$(147) : DW$=CHR$(17):LF$=CHR$ 
(157) 

+2200 FOR X=1 TO 24:DO$=DO$+DW$:NEXT X:DO 


DA 


$-CHR$(19)«DO$ GG 
“2210 A$(1)=RV$+B2$+"[30" "]"+RO$ AO 
«2220 A$(2)=RV$+YEL$+" "+DWS+LF$ OK 
+2230 FOR X=1 ТО 10:A$(3)=A$(3)+A$(2):NEX 

TX NM 
“2240 A$(3)=A$(3)+" "+RO$ DB 
+2250 HDG$=RV$+WH$+"TOWERS OF HANOI"+RO$ GD 
+2260 NUM$=RV$+B2$+"NUMBER OF RINGS (2 - 

8)"+RO$ NJ 
«2270 5Р$="[30" "]" РК 


«2280 FO$=RV$+G1$+"FROM TOWER #"+RO$:T9$= 
RV$+G1$+"TO TOWER #"+RO$ 

+2290 CR$=RV$+CY$+" "+RO$ 

+2300 SLV$(1)=RV$+G2$+" RINGS REQUIRES"+R 
O$:SLV$(2)-RV$4G2$4" MOVES."+RO$ 

+2310 MV$=RV$+B2$+"MOVE #"+RO$ 

+2320 CMP$=RV$+G1$+"COMPUTER SOLUTION (Y/ 


HG 
HK 


DA 
FC 


N) 2"+RO$ АР 
+2330 EN$=RV$+G1$+"PRESS «RETURN» TO END" 

+808 KL 
“2340 60701990 GC 
“2350 REM - DATA FOR SPRITES NK 
“2360 REM - SPRITE 0 NB 
+2370 DATA ,,,,узувузузэ»эзвзззэзэзззуэээ» 


yxrsrss soos rsssss sss, к КЕМ 53 COMMAS LJ 
*2380 DATA 1,255,128,1,255,128,1,255,128 FH 
“2390 REM - SPRITE 1 NA 
*2400 DATA y, peers 


is meaningless. Jim's solution checked for proper syn- 
aluated the input. That makes the problem 

quite a bit tougher. We'll le: hat as an additional chal- 
lenge for those of you who found this one too 
The follow реоріе who haven't been mentioned саг- 
lier also sent solutions to February Commodares: Donald 
H. Graham (Baltimore, MD), Paul Sturm (Weatherford, 


COMING IN THE JULY AHOY! (ON SALE JUNE 4)...... 


ИЛЛЕ MH 

*2410 DATA 3,255,192,3,255,192,3,255,192 MO 

*2420 REM - SPRITE 2 NH 

*2430 DATA ,, esses 

*2440 DATA 7,255,224,7,255,224,7,255,224 00 

*245() REM - SPRITE 3 NG 

*2460 DATA , sesso 
IDEE 

22470 DATA 15,255,240,15,255,240,15,255, s 
) 

*2480 REM - SPRITE 4 

2490 DATA ,, esses 


# 


-2500 DATA 31,255, 248,31, 255, 248,31 ,255,2 
48 

+2510 REM - SPRITE 5 

“2520 DATA ,,,.»»»%%9%9999%999909909900) 


IJ 
NE 


DII 
*2530 DATA 63,255,252, 63, 255,252,63,255, % 
52 

+2540 REM - SPRITE 6 

:2550 DATA ,, sess 


Y 


DEDE 


m 
*2560 DATA 127,255,254, 127, 255,254,127,25 
5,254 

+2570 REM - SPRITE 7 

*2580 DATA ,,s esser 
ТООЛ 

EC 255,255,255,255,255,255,255, T 
5,25: 


AF 
NK 


TX), Jesus Geliga-Torres (Aguadilla, PR), Dan R. King 
(High Rolls, NM), Thomas Lambert (Severna Park, 
MD), Richard Balliet (Nuangola, PA), Glenn Elliot 
(Rutherford, NJ), Robert La (Albuquerque, NM), 
Jack Thompson (Kirkwood, MO), Bruce Landrum (Fay- 
etteville, AR), Dex Peterson (LeRoy, MI), Royce Crabtree 
(Madisonville, KY), and Aaron Hughart (Pocatello, ID). 

Once again, these are the people whose solutions to 
8 Commodares have reached us by the middle 
of February. Put on those thinking caps and get busy on 
this month's challenges. You've got a lot of work to do! O 


MACHINE LANGUAGE 


MAKING YOUR 
OWN PROMS 


PUTTING YOUR VIC AND 64 
PROGRAMS INTO PERMANENT 
READ ONLY MEMORY 


USIC ROUTINES 
FOR THE VIC AND 64 
FEATURING 
SOUND ENVELOPES 
FOR THE МІС 


SPEEDING PIXELS 
SOME ASSEMBLY LANGUAGE 
HELP FOR BIT 
MAP GRAPHICS 


http:/ 


www.oldgam: 
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SUMMER GAMES II. 
EIGHT NEW WAYS TO GO FOR THE GOLD. . 


Sure Summer Са: great, but event. It's so realistic, there's even an GI 
why stop there? Let Summer Games Шаке opening and closing ceremony along with Ы 


you even farther with eight new events medal p 

including cycling. fencing, kayaking, triple 

jump, rowing, high jump, javelin and even 

equestrian. They be played 

up to eight players and some, like cycling, 

rowing and fencing challenge you with 
stic head-to-head competition. 


SUMMERGAMESII 


„Кз not too early to ge 
With the right diet, proper training 
hours of practice you just might m 


that joystick and le nes Il give 
you eight new ма or The Gold! 


countries you 
in true Olympic fa 


Strategy Games for the Action-Game Player 


Reader Service Мо 261 
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